conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

`quotient` is defined in base

This commit is contained in:
Sunrim KIM (keen) 2014-05-29 01:22:19 +09:00
parent 86a27e95b7
commit a9c4cefe88
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
piclib/srfi/95.scm
View File

@ -14,9 +14,6 @@
(define (identity x) (define (identity x)
x) x)
(define (quotient a b)
(exact (floor (/ a b))))
(define (merge ls1 ls2 less? . opt-key) (define (merge ls1 ls2 less? . opt-key)
(let ((key (if (null? opt-key) identity (car opt-key)))) (let ((key (if (null? opt-key) identity (car opt-key))))
(let rec ((arg1 ls1) (arg2 ls2)) (let rec ((arg1 ls1) (arg2 ls2))