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

Merge pull request #131 from KeenS/missing-functions 

( ref #130 ) Missing functions
This commit is contained in:
Yuichi Nishiwaki 2014-06-27 09:03:50 +09:00
parent 51b8344527 a9c4cefe88
commit 39a87d1c60
2 changed files with 3 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))

3
src/number.c
View File

@ -777,6 +777,9 @@ pic_init_number(pic_state *pic)
pic_defun(pic, "floor-remainder", pic_number_floor_remainder); pic_defun(pic, "floor-remainder", pic_number_floor_remainder);
pic_defun(pic, "truncate-quotient", pic_number_trunc_quotient); pic_defun(pic, "truncate-quotient", pic_number_trunc_quotient);
pic_defun(pic, "truncate-remainder", pic_number_trunc_remainder); pic_defun(pic, "truncate-remainder", pic_number_trunc_remainder);
pic_defun(pic, "modulo", pic_number_floor_remainder);
pic_defun(pic, "quotient", pic_number_trunc_quotient);
pic_defun(pic, "remainder", pic_number_trunc_remainder);
pic_gc_arena_restore(pic, ai); pic_gc_arena_restore(pic, ai);
pic_defun(pic, "gcd", pic_number_gcd); pic_defun(pic, "gcd", pic_number_gcd);