Changeset 12838 in project for chicken/trunk
- Timestamp:
- 12/17/08 09:43:11 (12 years ago)
- Location:
- chicken/trunk
- Files:
-
- 1 deleted
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/TODO
r12825 r12838 218 218 *** syntax-rules-stress-test 219 219 *** fully compiled ec-tests 220 ** 3-stage bootstrap with compiler-output comparison 221 ** install numbers egg into temporary repo and run tests 220 222 221 223 -
chicken/trunk/compiler.import.scm
r12819 r12838 25 25 26 26 27 (if (and (not (memq #:compiling ##sys#features))28 (not (memq #:chicken-install ##sys#features)))29 (error 'import "`compiler' module only available in compiled code"))30 31 27 (##sys#register-primitive-module 32 28 'compiler -
chicken/trunk/foreign.import.scm
r12819 r12838 25 25 26 26 27 (if (and (not (memq #:compiling ##sys#features))28 (not (memq #:chicken-install ##sys#features)))29 (error 'import "`foreign' module only available in compiled code"))30 31 27 (##sys#register-primitive-module 32 28 'foreign -
chicken/trunk/manual/Extensions
r12247 r12838 450 450 ; {{-password PASS}} : set password for transports that require this 451 451 ; {{-i -init DIRECTORY}} : initialize empty alternative repository 452 453 454 === chicken-uninstall references 452 ; {{-u -update-db}} : update export database 453 ; {{-r -repository DIRECTORY}} : specify alternative extension repository 454 455 456 === chicken-uninstall reference 455 457 456 458 ; {{-h -help}} : show usage information and exit … … 458 460 ; {{-force}} : don't ask, delete whatever matches 459 461 ; {{-s -sudo}} : use {{sudo(1)}} for deleting files 460 461 462 === chicken-status references 462 ; {{-r -repository DIRECTORY}} : specify alternative extension repository 463 464 465 === chicken-status reference 463 466 464 467 ; {{-h -help}} : show usage information and exit 465 468 ; {{-v -version}} : show version and exit 466 469 ; {{-f -files}} : list installed files 470 ; {{-r -repository DIRECTORY}} : specify alternative extension repository 467 471 468 472 -
chicken/trunk/runtime.c
r12830 r12838 2702 2702 for(msp = collectibles; msp < collectibles_top; ++msp) 2703 2703 if(*msp != NULL) mark(*msp); 2704 2704 2705 /* mark GC roots: */ 2705 2706 for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next) 2706 2707 mark(&gcrp->value); … … 2780 2781 j = fcount = 0; 2781 2782 2783 for(flist = finalizer_list; flist != NULL; flist = flist->next) 2784 mark(&flist->finalizer); 2785 2782 2786 for(flist = finalizer_list; flist != NULL; flist = flist->next) { 2783 2787 if(j < C_max_pending_finalizers) { … … 2787 2791 2788 2792 mark(&flist->item); 2789 mark(&flist->finalizer);2790 2793 } 2791 2794 } -
chicken/trunk/setup-api.scm
r12789 r12838 758 758 (let loop () 759 759 (let* ((n (##sys#fudge 16)) ; current milliseconds 760 (pn (make-pathname dir (string-append " setup-" (number->string n 16)) "tmp")))760 (pn (make-pathname dir (string-append "chicken-install-" (number->string n 16)) "tmp"))) 761 761 (cond ((file-exists? pn) (loop)) 762 762 (else (create-directory pn) pn)))))) -
chicken/trunk/tests/runtests.sh
r12559 r12838 71 71 # $compile ec-tests.scm && ./a.out # takes ages to compile 72 72 73 echo "======================================== module tests (II) ..."74 $interpret -bnq module-tests-2.scm75 $compile module-tests-2.scm && ./a.out76 77 73 echo "======================================== hash-table tests ..." 78 74 $interpret -s hash-table-tests.scm … … 94 90 -i -s r4rstest.scm >r4rstest.log 95 91 diff -u r4rstest.out r4rstest.log 92 93 echo "======================================== finalizer tests ..." 94 $interpret -s test-finalizers.scm 96 95 97 96 echo "======================================== locative stress test ..." -
chicken/trunk/tests/test-finalizers.scm
r12830 r12838 22 22 #t) 23 23 (gc #t) 24 (assert (not x-f)) 25 (assert (not y-f)) 24 26 (set! x #f) 25 27 (gc #t) 26 (assert (not x-f))28 (assert x-f) 27 29 (assert (not y-f)) 28 30 (set! y #f)
Note: See TracChangeset
for help on using the changeset viewer.