mescc: Add fsync.
[mes.git] / tests / gc.test
index 4398933e92dec55add99ad43b9488f2ac460b132..f016612ee03446bf32788d90d9a2eaf1d9011c7a 100755 (executable)
@@ -1,6 +1,7 @@
 #! /bin/sh
 # -*-scheme-*-
-echo ' ()' | cat $($(dirname $0)/../scripts/include.mes $0) $0 /dev/stdin | $(dirname $0)/../scripts/mes "$@"
+MES=${MES-$(dirname $0)/../scripts/mes}
+echo ' ()' | cat $(dirname $0)/../module/mes/base-0.mes $0 /dev/stdin | $MES $MES_FLAGS "$@"
 #paredit:||
 exit $?
 !#
@@ -25,7 +26,6 @@ exit $?
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-(mes-use-module (mes base-0))
 (mes-use-module (mes base))
 (mes-use-module (mes quasiquote))
 (mes-use-module (mes let))
@@ -33,9 +33,6 @@ exit $?
 (mes-use-module (mes scm))
 (mes-use-module (mes test))
 
-(when guile?
-  (use-modules (srfi srfi-1)))
-
 (pass-if "first dummy" #t)
 (pass-if-not "second dummy" #f)
 
@@ -75,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)