mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

Fix the REPL's `,compile' command.

Browse source 
* module/system/repl/command.scm (compile): Use `guile:disassemble'
  instead of the former `disassemble-objcode'.
This commit is contained in:
Ludovic Courtès 2009-06-19 02:14:22 +02:00
parent 0ba0b38489
commit 81e002fcb9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/repl/command.scm
View file

@ -266,7 +266,7 @@ Generate compiled code.
-O Enable optimization -O Enable optimization
-D Add debug information" -D Add debug information"
(let ((x (apply repl-compile repl (repl-parse repl form) opts))) (let ((x (apply repl-compile repl (repl-parse repl form) opts)))
(cond ((objcode? x) (disassemble-objcode x)) (cond ((objcode? x) (guile:disassemble x))
(else (repl-print repl x))))) (else (repl-print repl x)))))
(define guile:compile-file compile-file) (define guile:compile-file compile-file)