HCoop
/
bpt
/
guile.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
programs print as #<procedure ...>
[bpt/guile.git]
/
module
/
system
/
vm
/
program.scm
diff --git
a/module/system/vm/program.scm
b/module/system/vm/program.scm
index
ccb9ebf
..
28d453a
100644
(file)
--- a/
module/system/vm/program.scm
+++ b/
module/system/vm/program.scm
@@
-192,13
+192,14
@@
. ,rest)))
(define (write-program prog port)
. ,rest)))
(define (write-program prog port)
- (format port "#<pro
gram
~a~a>"
+ (format port "#<pro
cedure
~a~a>"
(or (program-name prog)
(and=> (program-source prog 0)
(lambda (s)
(format #f "~a at ~a:~a:~a"
(number->string (object-address prog) 16)
(or (program-name prog)
(and=> (program-source prog 0)
(lambda (s)
(format #f "~a at ~a:~a:~a"
(number->string (object-address prog) 16)
- (or (source:file s) "<unknown port>")
+ (or (source:file s)
+ (if s "<current input>" "<unknown port>"))
(source:line s) (source:column s))))
(number->string (object-address prog) 16))
(let ((arities (program-arities prog)))
(source:line s) (source:column s))))
(number->string (object-address prog) 16))
(let ((arities (program-arities prog)))