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

Check bignum return value

Browse source
This commit is contained in:
Justin Ethier 2019-10-28 15:49:20 -04:00
parent 9b2ceac93d
commit 5354fcb0bb
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/cgen.sld
View file

@ -640,7 +640,7 @@
(string-append
"alloc_bignum(data, " cvar-name "); "
;; TODO: need error checking, this is just a first cut:
"mp_read_radix(&bignum_value(" cvar-name "), \"" num2str "\", 10);")))))
"BIGNUM_CALL(mp_read_radix(&bignum_value(" cvar-name "), \"" num2str "\", 10));")))))
((complex? exp)
(let* ((cvar-name (mangle (gensym 'c)))
(num2str (lambda (n)