Macros are now properly getting baked in Modules bug still persists

2020-03-10 00:30:27 +01:00
parent 3b85873039
commit aac3985a61
20 changed files with 593 additions and 508 deletions
@@ -1,22 +1,21 @@
-;; (define-module math
-;;   :exports
-;;   (pi tau pow sqrt)
-
-;;   (define pi 3.1415)
-;;   (define tau (* 2 pi))
-;;   (define (pow a b) (** a b))
-;;   (define (sqrt a) (** a 0.5)))
-
-;; (assert (= math::pi 3.1415))
-;; (assert (= math::tau (* 2 math::tau)))
-
-
-(tdefine-module 'math
+(define-module math
  :exports
-  '(pi tau pow sqrt)
+  (pi tau pow sqrt)

-  '(define pi 3.1415)
-  '(define tau (* 2 pi))
-  '(define (pow a b) (** a b))
-  '(define (sqrt a) (** a 0.5)))
+  (define pi 3.1415)
+  (define tau (* 2 pi))
+  (define (pow a b) (** a b))
+  (define (sqrt a) (** a 0.5)))

+(assert (= math::pi 3.1415))
+(assert (= math::tau (* 2 math::tau)))
+
+
+;; (tdefine-module 'math
+;;   :exports
+;;   '(pi tau pow sqrt)
+
+;;   '(define pi 3.1415)
+;;   '(define tau (* 2 pi))
+;;   '(define (pow a b) (** a b))
+;;   '(define (sqrt a) (** a 0.5)))