Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 14:07:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Make (complex? z) work

Browse source
This commit is contained in:
Justin Ethier 2018-05-10 13:39:30 -04:00
parent 03f5e35c3a
commit 335be69a12
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/base.sld
View file

@ -1265,7 +1265,11 @@
return boolean_t; return boolean_t;
return boolean_f;") return boolean_f;")
(define (inexact? num) (not (exact? num))) (define (inexact? num) (not (exact? num)))
(define complex? number?) (define-c complex?
"(void *data, int argc, closure _, object k, object z)"
" return_closcall1(data, k, Cyc_is_complex(z)); "
"(void *data, object ptr, object z)"
" return Cyc_is_complex(z); ")
(define rational? number?) (define rational? number?)
(define (max first . rest) (foldl (lambda (old new) (if (> old new) old new)) first rest)) (define (max first . rest) (foldl (lambda (old new) (if (> old new) old new)) first rest))
(define (min first . rest) (foldl (lambda (old new) (if (< old new) old new)) first rest)) (define (min first . rest) (foldl (lambda (old new) (if (< old new) old new)) first rest))