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

Current module support hack.

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-03 22:39:38 +00:00
parent fdcedea643
commit 4b24d33c61
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/system/base/language.scm
View file

@ -24,10 +24,12 @@
:use-syntax (system base syntax) :use-syntax (system base syntax)
:use-module (system base module) :use-module (system base module)
:use-module (system il compile) :use-module (system il compile)
:use-module (system vm core)
:use-module (system vm assemble) :use-module (system vm assemble)
:use-module (ice-9 regex) :use-module (ice-9 regex)
:export (define-language lookup-language :export (define-language lookup-language
read-in compile-in print-in compile-file-in load-file-in)) read-in compile-in print-in compile-file-in load-file-in
hacked-load-in))
;;; ;;;
@ -106,6 +108,10 @@
(uniform-vector-read! bytes p) (uniform-vector-read! bytes p)
bytes))))) bytes)))))
(define (hacked-load-in file lang)
((vm-load (make-vm)
(load-file-in file (global-ref 'user) (lookup-language lang)))))
(define (object-file-name file) (define (object-file-name file)
(let ((m (string-match "\\.[^.]*$" file))) (let ((m (string-match "\\.[^.]*$" file)))
(string-append (if m (match:prefix m) file) ".go"))) (string-append (if m (match:prefix m) file) ".go")))