Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 13:49:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #218 - Fix startup issue

Browse source
This commit is contained in:
Justin Ethier 2017-09-04 18:57:23 -04:00
parent 8f2a918283
commit 8ec41e34bf
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Makefile
View file

@ -44,6 +44,11 @@ clean :
rm -rf test.txt a.out *.so *.o *.a *.out tags cyclone icyc scheme/*.o scheme/*.so scheme/*.c scheme/*.meta srfi/*.c srfi/*.meta srfi/*.o srfi/*.so scheme/cyclone/*.o scheme/cyclone/*.so scheme/cyclone/*.c scheme/cyclone/*.meta cyclone.c dispatch.c icyc.c generate-c.c generate-c rm -rf test.txt a.out *.so *.o *.a *.out tags cyclone icyc scheme/*.o scheme/*.so scheme/*.c scheme/*.meta srfi/*.c srfi/*.meta srfi/*.o srfi/*.so scheme/cyclone/*.o scheme/cyclone/*.so scheme/cyclone/*.c scheme/cyclone/*.meta cyclone.c dispatch.c icyc.c generate-c.c generate-c
cd $(EXAMPLE_DIR) ; make clean cd $(EXAMPLE_DIR) ; make clean
rm -rf html tests/*.o tests/*.c rm -rf html tests/*.o tests/*.c
rm -f tests/srfi-28-tests
rm -f tests/srfi-60-tests
rm -f tests/srfi-121-tests
rm -f tests/srfi-143-tests
rm -f tests/array-list-tests
install : libs install-libs install-includes install-bin install : libs install-libs install-includes install-bin
$(MKDIR) $(DESTDIR)$(DATADIR) $(MKDIR) $(DESTDIR)$(DATADIR)

4
srfi/27.sld
View file

@ -66,12 +66,12 @@
(define random-source-make-reals (define random-source-make-reals
(case-lambda (case-lambda
((s) ((s)
(random-source-make-reals s (/ m))) (random-source-make-reals s (/ 1.0 m)))
((s unit) ((s unit)
(if (not (< 0.0 unit 1.0)) (if (not (< 0.0 unit 1.0))
(error "unit must be between 0.0 and 1.0 (exclusive), but got " unit)) (error "unit must be between 0.0 and 1.0 (exclusive), but got " unit))
(let ((numgen (random-source-make-integers s))) (let ((numgen (random-source-make-integers s)))
(define r (exact (floor (/ unit)))) (define r (exact (floor (/ 1.0 unit))))
(lambda () (lambda ()
(* (numgen r) unit)))))) (* (numgen r) unit))))))