Commit 1a024146 authored by Jean-Claude Beaudoin's avatar Jean-Claude Beaudoin
Browse files

Marginal improvement to ffi::c-inline.

parent 95ad27bd
......@@ -598,7 +598,8 @@
(with-input-from-string (s c-expression)
(when output-vars
(wt-nl))
(do ((c (read-char s nil nil)
(do ((nb-arguments (length coerced-arguments))
(c (read-char s nil nil)
(read-char s nil nil)))
((null c))
(case c
......@@ -636,7 +637,7 @@
(cond ((or (null index) (and single-digit next-char (alphanumericp next-char)))
(wt #\# k))
((< index (length coerced-arguments))
((< index nb-arguments)
(wt (nth index coerced-arguments)))
(t
(cmperr "C-INLINE: Variable code exceeds number of arguments")))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment