mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 04:30:19 +02:00
Code Activity

(compile-file): Output "(use-modules (vm vm))".

Browse source
This commit is contained in:
Keisuke Nishida 2000-08-22 18:44:19 +00:00
parent b1637a1ebd
commit dbb74d8137
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
vm/compile.scm
View file

@ -52,6 +52,7 @@
(with-output-to-file out-file (with-output-to-file out-file
(lambda () (lambda ()
(format #t ";;; Compiled from ~A\n\n" file) (format #t ";;; Compiled from ~A\n\n" file)
(display "(use-modules (vm vm))\n\n")
(display "(let ((vm (make-vm)))\n") (display "(let ((vm (make-vm)))\n")
(display " (define (vm-exec code)\n") (display " (define (vm-exec code)\n")
(display " (vm-run vm (make-program (make-bytecode code) #f)))\n") (display " (vm-run vm (make-program (make-bytecode code) #f)))\n")