Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 06:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Need to set return type for zero-argument constructors.

Browse source
This commit is contained in:
Alex Shinn 2012-01-15 21:28:41 +09:00
parent 6fa22a8cb0
commit 12e18c9997
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/chibi-ffi
View file

@ -1091,9 +1091,10 @@
(if default (write-default default) "") (if default (write-default default) "")
");\n" ");\n"
(cond (cond
((and (pair? (func-c-args func)) ((or (not (eq? 'sexp (type-base (func-ret-type func))))
(any (lambda (a) (not (eq? 'sexp (type-base a)))) (and (pair? (func-c-args func))
(func-c-args func))) (any (lambda (a) (not (eq? 'sexp (type-base a))))
(func-c-args func))))
(lambda () (lambda ()
(cat (cat
" if (sexp_opcodep(op)) {\n" " if (sexp_opcodep(op)) {\n"
@ -1104,6 +1105,7 @@
(i 1 (+ i 1))) (i 1 (+ i 1)))
((null? ls)) ((null? ls))
(cond (cond
((eq? 'sexp (type-base (car ls))))
((<= i 3) ((<= i 3)
(cat " sexp_opcode_arg" i "_type(op) = " (cat " sexp_opcode_arg" i "_type(op) = "
(type-id-init-value (car ls)) ";\n")) (type-id-init-value (car ls)) ";\n"))