gensym memroizeeq memorize1eq mal:atom?

the-language · Oct 29, 2017 · c9d8b89 · c9d8b89
1 parent dadbe2c
commit c9d8b89
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/mal.rkt b/mal.rkt
@@ -47,6 +47,7 @@
       [number->string 'str]
       string->number ; 没有实现
       [equal? '=]
+      atom?
       [atom! 'atom]
       [atom-get 'deref]
       [atom-set! 'reset!]

diff --git a/zscm.rkt b/zscm.rkt
@@ -247,7 +247,8 @@
          '()
          (cons (cons (car xs) (cadr xs)) (%hash (cddr xs)))))
    (define (hash . xs) (make-immutable-hash (%hash xs)))
-   (define (memorize1 f) f) ; zaoqil-core
+   (define (memroizeeq f) f) ; zaoqil-core
+   (define (memorize1eq f) f) ; zaoqil-core
 
    (define (zero? x) (eq? x 0))
    (define (positive? x) (> x 0))
@@ -326,6 +327,9 @@
              (car xs)
              (assf f (cdr xs)))))
    (define (assoc x xs) (assf (λ (y) (equal? x y)) xs))
+
+   (define gensym% (atom! 0))
+   (define (gensym) (atom-map! (λ (x) (+ x 1)) gensym%))
    ))
 
 (prelude