modified persisytance

parent 43921f95
......@@ -902,11 +902,15 @@
(mk make-atom))))
(upersist log x pred)))
(define-syntax-rule (name-object f)
(let ((y f))
(make-shallow y)
(set-object-property! y 'name 'f)
(set-object-property! y 'module (module-name (current-module)))))
(define-syntax name-object
(syntax-rules ()
((_ f)
(let ((y f))
(make-shallow y)
(set-object-property! y 'name 'f)
(set-object-property! y 'module (module-name (current-module)))))
((_ f ...)
(begin (name-object f) ...))))
(define-syntax-rule (name-object-deep f)
(let ((y f))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment