using stdint types

2020-03-31 11:38:53 +02:00
parent 33145be4c6
commit 76dd4d6482
52 changed files with 483 additions and 1503 deletions
@@ -1,7 +1,7 @@
-(define-syntax (define-class name-and-members . body)
+(define-macro (define-class name-and-members . body)
  "Macro for creating simple classes."
-  (let ((name    (first name-and-members))
-        (members (rest name-and-members)))
+  (let ((name    (car name-and-members))
+        (members (cdr name-and-members)))
    `(set-type!
      (define
        ;; The function definition
@@ -14,12 +14,12 @@
          (set-type!
           (lambda args
             "This is the docs for the handle"
-             (let ((op (eval (first args))))
+             (let ((op (eval (car args))))
               (if (procedure? op)
                   (eval args)
-                 (eval (first args)))))
+                 (eval (car args)))))
           ,(symbol->keyword name))))
      :constructor)))

-(define-syntax (-> obj meth . args)
+(define-macro (-> obj meth . args)
  `(,obj ',meth ,@args))