boot-module: first running!

This commit is contained in:
Jan Nieuwenhuizen 2019-11-15 09:12:23 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent 40ea76e231
commit 3630976705
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
3 changed files with 2772 additions and 0 deletions

19
boo.scm Normal file
View File

@ -0,0 +1,19 @@
(define-module (boo)
#:use-module (ijs-9 receive)
#:export (ZEE-MODULE
bah))
(define *************************en-deze-dan************************ 42)
(define (*************************of-deze************************) 42)
(define bah "Bah!")
(display "*ZZZZEEE* module boo\n")
'ZZZEEE-MODULE
(define (ZEE-MODULE)
(display "ZEE-MODULE\n"))
;; (module-define! (guile:current-module) 'ZEE-MODULE (lambda _ "HAHA\n"))
;; (module-define! (guile:current-module) 'bah "burp")
;; (define (make-fluid x)
;; (display "HAHA\n"))
33

6
ijs-9/receive.scm Normal file
View File

@ -0,0 +1,6 @@
(define-module (ijs-9 receive)
#:export (ijs-receive))
;;(define-public (ijs-receive) (display "ijs\n"))
(module-define! (guile:current-module) 'ijs-receive (display "ijs\n"))

File diff suppressed because it is too large Load Diff