lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
upscheme/scheme-tests/wt.scm

29 lines
579 B
Scheme
Raw Normal View History

switching to scheme #t, #f, and () values porting code to sort out which NILs are false and which are empty lists switching to scheme-style special forms. however you feel about scheme names vs. CL names, using both is silly. mostly switching to scheme predicate names, with compatibility aliases for now. adding set-constant! to make this efficient. adding null?, eqv?, assq, assv, assoc, memq, memv, member adding 2-argument form of if allowing else as final cond condition looking for init file in same directory as executable, so flisp can be started from anywhere renaming T to FL_T, since exporting a 1-character symbol is not very nice adding opaque type boilerplate example file adding correctness checking for the pattern-lambda benchmark bugfix in int2str
2009-01-28 20:04:23 -05:00
(define-macro (while- test . forms)
import femtolisp source
2008-06-30 21:54:22 -04:00
`((label -loop- (lambda ()
(if ,test
switching to scheme #t, #f, and () values porting code to sort out which NILs are false and which are empty lists switching to scheme-style special forms. however you feel about scheme names vs. CL names, using both is silly. mostly switching to scheme predicate names, with compatibility aliases for now. adding set-constant! to make this efficient. adding null?, eqv?, assq, assv, assoc, memq, memv, member adding 2-argument form of if allowing else as final cond condition looking for init file in same directory as executable, so flisp can be started from anywhere renaming T to FL_T, since exporting a 1-character symbol is not very nice adding opaque type boilerplate example file adding correctness checking for the pattern-lambda benchmark bugfix in int2str
2009-01-28 20:04:23 -05:00
(begin ,@forms
import femtolisp source
2008-06-30 21:54:22 -04:00
(-loop-))
converting for to a special form adding loadi8 instruction cleaning up numeric comparison, reducing repeated code
2009-04-15 23:05:38 -04:00
())))))
(define (tw)
(set! i 0)
(while (< i 10000000) (set! i (+ i 1))))
(define (tw2)
(letrec ((loop (lambda ()
(if (< i 10000000)
(begin (set! i (+ i 1))
(loop))
Clean up whitespace - Tabs to spaces - Remove invisible whitespace at ends of lines - Break or shorten long lines (not for all files)
2019-08-09 10:18:36 -04:00
()))))
converting for to a special form adding loadi8 instruction cleaning up numeric comparison, reducing repeated code
2009-04-15 23:05:38 -04:00
(loop)))
#|
interpreter:
while: 1.82sec
macro: 2.98sec
compiler:
while: 0.72sec
macro: 1.24sec
|#