mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Don't use module.scm.

Browse source
This commit is contained in:
Keisuke Nishida 2001-04-04 20:23:13 +00:00
parent 9d3903dbed
commit 9419ff9ae9
6 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/ghil/spec.scm
View file

@ -19,7 +19,6 @@
(define-module (language ghil spec) (define-module (language ghil spec)
:use-module (system base language) :use-module (system base language)
:use-module (system base module)
:export (ghil)) :export (ghil))
(define-language ghil (define-language ghil
@ -27,5 +26,5 @@
:version "0.3" :version "0.3"
:reader read :reader read
:printer write :printer write
:environment (make-vmodule) ;; :environment (make-vmodule)
) )

6
module/system/base/module.scm
View file

@ -194,9 +194,9 @@
(export current-vmodule set-current-vmodule! (export current-vmodule set-current-vmodule!
current-evaluator set-current-evaluator!) current-evaluator set-current-evaluator!)
(define *current-module* #f) (define *current-vmodule* #f)
(define (current-vmodule) *current-module*) (define (current-vmodule) *current-vmodule*)
(define (set-current-vmodule! m) (set! *current-module* m)) (define (set-current-vmodule! m) (set! *current-vmodule* m))
(define *current-evaluator* #f) (define *current-evaluator* #f)
(define (current-evaluator) *current-evaluator*) (define (current-evaluator) *current-evaluator*)

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

@ -22,7 +22,6 @@
(define-module (system repl command) (define-module (system repl command)
:use-module (oop goops) :use-module (oop goops)
:use-syntax (system base syntax) :use-syntax (system base syntax)
:use-module (system base module)
:use-module (system base language) :use-module (system base language)
:use-module (system repl common) :use-module (system repl common)
:use-module (system il glil) :use-module (system il glil)

6
module/system/repl/common.scm
View file

@ -22,7 +22,6 @@
(define-module (system repl common) (define-module (system repl common)
:use-module (oop goops) :use-module (oop goops)
:use-syntax (system base syntax) :use-syntax (system base syntax)
:use-module (system base module)
:use-module (system base language) :use-module (system base language)
:use-module (system vm core) :use-module (system vm core)
:export (make-repl repl-welcome repl-prompt repl-read repl-compile :export (make-repl repl-welcome repl-prompt repl-read repl-compile
@ -41,7 +40,7 @@
(make <repl> (make <repl>
:vm vm :vm vm
:language (lookup-language lang) :language (lookup-language lang)
:module (global-ref 'user) :module #f ;; (global-ref 'user)
:value-count 0 :value-count 0
; :value-history (make-vmodule) ; :value-history (make-vmodule)
:tm-stats (times) :tm-stats (times)
@ -55,7 +54,8 @@
(display "Enter `,help' for help.\n")) (display "Enter `,help' for help.\n"))
(define (repl-prompt repl) (define (repl-prompt repl)
(format #t "~A@~A> " repl.language.name (env-identifier repl.module)) (format #t "~A@~A> " repl.language.name 'guile)
;; (env-identifier repl.module))
(force-output)) (force-output))
(define (repl-read repl . args) (define (repl-read repl . args)

5
module/system/repl/repl.scm
View file

@ -21,7 +21,6 @@
(define-module (system repl repl) (define-module (system repl repl)
:use-syntax (system base syntax) :use-syntax (system base syntax)
:use-module (system base module)
:use-module (system repl common) :use-module (system repl common)
:use-module (system repl command) :use-module (system repl command)
:use-module (system vm frame) :use-module (system vm frame)
@ -30,8 +29,8 @@
(define (start-repl lang) (define (start-repl lang)
(let ((repl (make-repl lang))) (let ((repl (make-repl lang)))
(set-current-vmodule! repl.module) ;; (set-current-vmodule! repl.module)
(set-current-evaluator! repl.vm) ;; (set-current-evaluator! repl.vm)
(repl-welcome repl) (repl-welcome repl)
(let prompt-loop () (let prompt-loop ()
(repl-prompt repl) (repl-prompt repl)

3
module/system/vm/load.scm
View file

@ -21,7 +21,6 @@
(define-module (system vm load) (define-module (system vm load)
:use-module (system vm core) :use-module (system vm core)
:autoload (system base module) (global-ref)
:autoload (system base language) (compile-file-in lookup-language) :autoload (system base language) (compile-file-in lookup-language)
:use-module (ice-9 regex) :use-module (ice-9 regex)
:export (load/compile)) :export (load/compile))
@ -33,7 +32,7 @@
(compiled (object-file-name file))) (compiled (object-file-name file)))
(if (or (not (file-exists? compiled)) (if (or (not (file-exists? compiled))
(> (stat:mtime (stat file)) (stat:mtime (stat compiled)))) (> (stat:mtime (stat file)) (stat:mtime (stat compiled))))
(compile-file-in file (global-ref 'user) (lookup-language 'r5rs))) (compile-file-in file #f (lookup-language 'r5rs)))
(let ((bytes (make-uniform-vector (stat:size (stat compiled)) #\a))) (let ((bytes (make-uniform-vector (stat:size (stat compiled)) #\a)))
(call-with-input-file compiled (call-with-input-file compiled
(lambda (p) (uniform-vector-read! bytes p))) (lambda (p) (uniform-vector-read! bytes p)))