Add block pushing and wireworld simulation.

modules/guile/list.scm

@@ -22,7 +22,7 @@
 ;;; Code:
 
 (define-module (guile list)
-  #:export (delete delq delq! last-pair))
+  #:export (delete delq delq!))
 
 (define (fold proc acc lst)
   (if (null? lst)
@@ -34,11 +34,6 @@
 (define (fold-right proc acc lst)
   (fold proc acc (reverse lst)))
 
-(define (last-pair lst)
-  (if (null? (cdr lst))
-      lst
-      (last-pair (cdr lst))))
-
 (define (delete item lst . eq-pair)
   (define eq (if (pair? eq-pair) (car eq-pair) equal?))
   (fold-right (lambda (i acc)