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

Fix problems with compilation

Browse source
This commit is contained in:
Justin Ethier 2016-08-19 23:05:01 -04:00
parent 007ba59ffe
commit 93b855b22c
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
srfi/1.scm
View file

@ -208,6 +208,13 @@
;;;
;;; The SRFI discussion record contains more discussion on this topic.
(define-syntax :optional
(syntax-rules ()
((:optional rest default-exp)
(let ((maybe-arg rest))
(cond ((null? maybe-arg) default-exp)
((null? (cdr maybe-arg)) (car maybe-arg))
(else (error "too many optional arguments" maybe-arg)))))))
;;; Constructors
;;;;;;;;;;;;;;;;
@ -271,7 +278,13 @@
(define (iota count . maybe-start+step)
(check-arg integer? count iota)
(if (< count 0) (error "Negative step count" iota count))
(let-optionals maybe-start+step ((start 0) (step 1))
(let ((start 0)
(step 1))
(cond
((not (null? maybe-start+step))
(set! start (car maybe-start+step))
(if (not (null? (cdr maybe-start+step)))
(set! step (cadr maybe-start+step)))))
(check-arg number? start iota)
(check-arg number? step iota)
(let loop ((n 0) (r '()))