we have a new parser and can parse [] and {} for vectors and hm's

This commit is contained in:
FelixBrendel
2019-11-21 04:33:42 +01:00
parent 079ca002f2
commit 72bd30bf4c
13 changed files with 304 additions and 75 deletions
+3 -3
View File
@@ -5,11 +5,11 @@
`(set-type!
(define
;; The function definition
(,(string->symbol (concat-strings "make-" (symbol->string name))) @members)
(,(string->symbol (concat-strings "make-" (symbol->string name))) ,@members)
;; The docstring
,(concat-strings "This is the handle to an object of the class " (symbol->string name))
;; the body
@body
,@body
(let ,(zip members members)
(set-type!
(lambda args
@@ -22,4 +22,4 @@
:constructor)))
(define-syntax (-> obj meth . args)
`(,obj ',meth @args))
`(,obj ',meth ,@args))