mescc: Add fsync.
[mes.git] / tests / gc.test
index ea1f1d27b24e1478101d97acb9de7fa118718943..f016612ee03446bf32788d90d9a2eaf1d9011c7a 100755 (executable)
@@ -72,10 +72,10 @@ exit $?
   (if (= gc-free gc-size) (gc))
   ((lambda (index)
      (set! gc-free (+ gc-free 1))
-     (make-cell 'p index))
+     (core:make-cell 'p index))
    gc-free))
 
-(define (make-cell type . x)
+(define (core:make-cell type . x)
   (cons type (if (pair? x) (car x) '*)))
 
 (define (cell-index c)