Add block pushing and wireworld simulation.

modules/ice-9/control.scm

@@ -23,7 +23,6 @@
 ;;; Code:
 
 (define-module (ice-9 control)
-  #:use-module (hoot control)
   #:export (make-prompt-tag
             default-prompt-tag
             call-with-prompt

modules/ice-9/vlist.scm

@@ -44,9 +44,9 @@
 ;;; Code:
 
 (define-module (ice-9 vlist)
-  #:use-module (hoot fluids)
   #:use-module (hoot hashtables)
   #:use-module ((hoot lists) #:select (fold))
+  #:use-module (srfi srfi-9)
   #:export (vlist? vlist-cons vlist-head vlist-tail vlist-null?
                    vlist-null list->vlist vlist-ref vlist-drop vlist-take
                    vlist-length vlist-fold vlist-fold-right vlist-map
@@ -65,8 +65,6 @@
   ;;; Hoot Hacks™ (not really ™)
 
 ;; XXX hashes using equal? and eqv? have not been defined; use only eq?
-(define equal? eq?)
-(define eqv? eq?)
 (define hash hashq)
 (define hashv hashq)
 (define (fold-right proc init lst)