Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Cleanup and fix syntax errors

Browse source
This commit is contained in:
Justin Ethier 2021-02-11 18:07:54 -05:00
parent 9df5665dab
commit 8b8af34390
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/cgen.sld
View file

@ -2194,7 +2194,7 @@
(emit* "object buf[1]; object cont = args[0];"); (emit* "object buf[1]; object cont = args[0];");
(if head-pair (if head-pair
(emit* "buf[0] = &" head-pair "; (((closure)cont)->fn)(data, cont, 1, buf);") (emit* "buf[0] = &" head-pair "; (((closure)cont)->fn)(data, cont, 1, buf);")
(emit* "buf[0] = NULL; (((closure)cont)->fn)(data, cont 1, buf);")) (emit* "buf[0] = NULL; (((closure)cont)->fn)(data, cont, 1, buf);"))
(emit* " } ")))) (emit* " } "))))
;; Emit entry point ;; Emit entry point
@ -2354,10 +2354,10 @@
(emit* (emit*
"(((closure)" "(((closure)"
(cgen:mangle-global (lib:name->symbol lib-name)) (cgen:mangle-global (lib:name->symbol lib-name))
")->fn)(data, buf[0] 1, buf);") ")->fn)(data, buf[0], 1, buf);")
(emit* "}") (emit* "}")
(emit* "void c_" (lib:name->string lib-name) "_entry_pt(data, argc, cont,value) void *data; int argc; closure cont; object value;{ ") (emit* "void c_" (lib:name->string lib-name) "_entry_pt(void *data, int argc, object cont, object value){ ")
(emit* " register_library(\"" (emit* " register_library(\""
(lib:name->unique-string lib-name) (lib:name->unique-string lib-name)
"\");") "\");")