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

Added (make-string)

Browse source
This commit is contained in:
Justin Ethier 2015-03-26 13:46:23 -04:00
parent 9ecb6d6668
commit b578e13509
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
trans.scm
View file

@ -178,6 +178,12 @@
(return #f))) (return #f)))
objs) objs)
#t)))) #t))))
(define (make-string k . fill)
(let ((fill* (if (null? fill)
'(#\space)
fill)))
(list->string
(apply make-list (cons k fill*)))))
(define (error msg . args) (define (error msg . args)
(raise (cons msg args))) (raise (cons msg args)))
(define (raise obj) (define (raise obj)