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

* moved uuid to ikarus.strings

This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 04:07:48 -04:00
parent a6ef1cd110
commit 0399dc386e
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

5
src/ikarus.core.ss
View File

@ -1380,11 +1380,6 @@
(primitive-set! 'list (lambda x x)) (primitive-set! 'list (lambda x x))
(primitive-set! 'uuid
(lambda ()
(let ([s (make-string 16)])
(or (foreign-call "ik_uuid" s)
(error 'uuid "failed!")))))
(primitive-set! 'gensym->unique-string (primitive-set! 'gensym->unique-string
(lambda (x) (lambda (x)

10
src/ikarus.strings.ss
View File

@ -1,11 +1,11 @@
(library (ikarus strings) (library (ikarus strings)
(export string-length string-ref string-set! make-string string->list string=? (export string-length string-ref string-set! make-string string->list string=?
string-append substring string list->string) string-append substring string list->string uuid)
(import (import
(except (ikarus) string-length string-ref string-set! make-string (except (ikarus) string-length string-ref string-set! make-string
string->list string=? string-append substring string string->list string=? string-append substring string
list->string) list->string uuid)
(only (scheme) (only (scheme)
$fx+ $fxsub1 $fxadd1 $char= $car $cdr $fx+ $fxsub1 $fxadd1 $char= $car $cdr
$fxzero? $fx= $fx<= $fx< $fx>= $fx- $fxzero? $fx= $fx<= $fx< $fx>= $fx-
@ -228,4 +228,10 @@
(let ([s ($make-string n)]) (let ([s ($make-string n)])
(fill-strings s s* 0)))))) (fill-strings s s* 0))))))
(define uuid
(lambda ()
(let ([s (make-string 16)])
(or (foreign-call "ik_uuid" s)
(error 'uuid "failed!")))))
) )