upscheme/scheme-tests/torture.scm

(define ones (map (lambda (x) 1) (iota 1000000)))

(writeln (apply + ones))

(define (big n)
  (if (<= n 0)
      0
      `(+ 1 1 1 1 1 1 1 1 1 1 ,(big (- n 1)))))

(define nst (big 100000))

(writeln (eval nst))

(define longg (cons '+ ones))
(writeln (eval longg))

(define (f x)
  (begin (writeln x)
         (f (+ x 1))
         0))
optimizations to map and case several optimizations to the compiler itself, mostly involving emit and encode-byte-code experimental, very basic profiling utility 2009-06-10 20:34:50 -04:00			`(define ones (map (lambda (x) 1) (iota 1000000)))`

Replace xwrite/xdisplay/xnewline with non-x names 2019-08-25 15:57:31 -04:00			`(writeln (apply + ones))`
optimizations to map and case several optimizations to the compiler itself, mostly involving emit and encode-byte-code experimental, very basic profiling utility 2009-06-10 20:34:50 -04:00
adding the ability to heap-allocate extentions to the value stack, so recursion depth is limited only by the process stack limit. reorganizing evaluator so the same code is used for evaluating and pushing arguments for both builtin functions and lambdas. for now this is slower, but it was done in preparation for Things To Come. adding list-head implementing the calling convention for long argument lists in bytecode compiler. arguments are broken down into a nest of list and nconc calls. also implementing vararg builtins. 2009-04-01 00:31:49 -04:00			`(define (big n)`
			`(if (<= n 0)`
			`0`
			`(+ 1 1 1 1 1 1 1 1 1 1 ,(big (- n 1)))))

optimizations to map and case several optimizations to the compiler itself, mostly involving emit and encode-byte-code experimental, very basic profiling utility 2009-06-10 20:34:50 -04:00			`(define nst (big 100000))`
adding the ability to heap-allocate extentions to the value stack, so recursion depth is limited only by the process stack limit. reorganizing evaluator so the same code is used for evaluating and pushing arguments for both builtin functions and lambdas. for now this is slower, but it was done in preparation for Things To Come. adding list-head implementing the calling convention for long argument lists in bytecode compiler. arguments are broken down into a nest of list and nconc calls. also implementing vararg builtins. 2009-04-01 00:31:49 -04:00
Replace xwrite/xdisplay/xnewline with non-x names 2019-08-25 15:57:31 -04:00			`(writeln (eval nst))`
adding the ability to heap-allocate extentions to the value stack, so recursion depth is limited only by the process stack limit. reorganizing evaluator so the same code is used for evaluating and pushing arguments for both builtin functions and lambdas. for now this is slower, but it was done in preparation for Things To Come. adding list-head implementing the calling convention for long argument lists in bytecode compiler. arguments are broken down into a nest of list and nconc calls. also implementing vararg builtins. 2009-04-01 00:31:49 -04:00
optimizations to map and case several optimizations to the compiler itself, mostly involving emit and encode-byte-code experimental, very basic profiling utility 2009-06-10 20:34:50 -04:00			`(define longg (cons '+ ones))`
Replace xwrite/xdisplay/xnewline with non-x names 2019-08-25 15:57:31 -04:00			`(writeln (eval longg))`
optimizations to map and case several optimizations to the compiler itself, mostly involving emit and encode-byte-code experimental, very basic profiling utility 2009-06-10 20:34:50 -04:00
adding the ability to heap-allocate extentions to the value stack, so recursion depth is limited only by the process stack limit. reorganizing evaluator so the same code is used for evaluating and pushing arguments for both builtin functions and lambdas. for now this is slower, but it was done in preparation for Things To Come. adding list-head implementing the calling convention for long argument lists in bytecode compiler. arguments are broken down into a nest of list and nconc calls. also implementing vararg builtins. 2009-04-01 00:31:49 -04:00			`(define (f x)`
Replace xwrite/xdisplay/xnewline with non-x names 2019-08-25 15:57:31 -04:00			`(begin (writeln x)`
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			`(f (+ x 1))`
			`0))`