boot-module: first running!
This commit is contained in:
parent
40ea76e231
commit
3630976705
|
@ -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
|
|
@ -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
Loading…
Reference in New Issue