Hi,
Upon working with object->string with the :readable flag (in order to
save/load some state) I stumbled upon the following
(note that format "~W" is the same as (object->string obj :readable))
----
(define *subnamespace*
(let ()
(curlet)))
(with-let *subnamespace*
(define nested-curlet
(let ((nested 1))
(curlet))))
(define top-curlet
(let ((top 1))
(curlet)))
(format *stderr* "top-curlet is ~W\n" top-curlet )
(with-let *subnamespace*
(format *stderr* "nested-curlet is ~W\n" nested-curlet))
;; top-curlet is (inlet :top 1)
;; nested-curlet is (let ((<1> (inlet :nested 1)))
;; (set! (outlet <1>) (inlet :nested-curlet <1>)) <1>)
----
Is this expected? (the nested-curlet printout)
I am using environments to create namespaces-like functionality. Is there a
way to print out the nested-curlet
as (inlet :nested 1)?
Thanks,
Christos
_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
