changed output to output symbols not in current module with namespaces attached

parent aa4814be
......@@ -465,7 +465,7 @@
((not ns?)
(format #f "~a" (procedure-name a)))
((and ns? (not quoted))
((and ns? (not quoted?))
(let ((m (current-module))
(n (procedure-name a)))
(if (and (module-defined? m n) (eq? (module-ref m n) a))
......@@ -529,7 +529,7 @@
(else
(let ((op (procedure-property f 'prolog-operator)))
(if (and op (not ns?))
(if (and op (not (and ns? quoted?)))
(format #f "'~a'(~a~{, ~a~})"
op
(lp a) (map lp (gp->scm l s)))
......@@ -662,7 +662,7 @@
((binary-port? s)
(permission_error input binary_stream ss))
(else
(<let> ((ns #f)
(<let> ((ns #t)
(q #f)
(i #t)
(n #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