summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorpukkamustard <pukkamustard@posteo.net>2020-09-22 19:25:04 +0200
committerpukkamustard <pukkamustard@posteo.net>2020-09-22 19:25:04 +0200
commitd2ced53c8d93e1ae8d2551b8d406fad8582c9ea1 (patch)
treef576e3443e8727150be0481efafaaf0645f70708
parent783295d27fab1dabd1a0fd008fee7fa8576a880f (diff)
(schemantic lvar): fix writing of unnamed lvar
-rw-r--r--schemantic/lvar.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/schemantic/lvar.scm b/schemantic/lvar.scm
index 198667c..593d3d7 100644
--- a/schemantic/lvar.scm
+++ b/schemantic/lvar.scm
@@ -21,7 +21,7 @@
(define-method (write (self <lvar>) port)
(if (lvar-name self)
(format port "?~a" (lvar-name self))
- (format port "?~x>" (object-address self))))
+ (format port "?~x" (object-address self))))
(define-method (equal? (x <lvar>) (y <lvar>))
(if (and (lvar-name x) (lvar-name y))