Working on 5.11

2021-03-24 13:04:52 -04:00
parent 8a2ce473be
commit 5b7e799f2f
3 changed files with 69 additions and 22 deletions
--- a/misc/sicp-regsim.scm
+++ b/misc/sicp-regsim.scm
@@ -29,6 +29,7 @@
      (cond ((eq? message 'get) contents)
            ((eq? message 'set)
             (lambda (value) (set! contents value)))
+            ((eq? message 'name?) name)
            (else
             (error "Unknown request -- REGISTER" message))))
    dispatch))