diff options
Diffstat (limited to 'tools/dup.scm')
-rw-r--r-- | tools/dup.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/tools/dup.scm b/tools/dup.scm index 217dc8c..f3997dd 100644 --- a/tools/dup.scm +++ b/tools/dup.scm @@ -4,8 +4,6 @@ ;;; "alloc-lines" is any number bigger than the number of lines in "file" ;;; (dups 16 "s7.c" 91000) finds all 16-line matches in s7.c which (we wish) has less than 91000 lines in all -;(set! (*s7* 'heap-size) (* 2 1024000)) - (define dups (let ((unique #f)) @@ -123,7 +121,7 @@ (format *stderr* "~%"))))))))))))) (dups 16 "s7.c" 100000) -;(dups 8 "s7.c" 100000) +;(dups 12 "s7.c" 100000) ;(dups 12 "ffitest.c" 2000) ;(dups 8 "ffitest.c" 2000) ;(dups 1 "s7test.scm" 105000) |