conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Globally visible procedures now have attached names: 

Ikarus Scheme (Build 2007-09-04)
Copyright (c) 2006-2007 Abdulaziz Ghuloum

> car
#<procedure car>
> (car 1 2)
Error in apply: incorrect number of argument (2) to #<procedure car>.
> ^D
This commit is contained in:
Abdulaziz Ghuloum 2007-09-04 20:38:16 -04:00
parent b3f80f0dc9
commit 62e1527d1d
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

9
src/ikarus.writer.ss
View File

@ -505,7 +505,14 @@
(write-character x p m) (write-character x p m)
i] i]
[(procedure? x) [(procedure? x)
(write-char* "#<procedure>" p) (cond
[(let ([name (procedure-annotation x)])
(and (symbol? name) name)) =>
(lambda (name)
(write-char* "#<procedure " p)
(write-char* (symbol->string name) p)
(write-char* ">" p))]
[else (write-char* "#<procedure>" p)])
i] i]
[(output-port? x) [(output-port? x)
(write-char* "#<output-port " p) (write-char* "#<output-port " p)