build-runtime treatment for Extort.

Author: dvanhorn

langs/extort/build-runtime.rkt

@@ -0,0 +1,12 @@
+#lang racket
+(provide runtime-path)
+
+(require racket/runtime-path)
+(define-runtime-path here ".")
+
+(system (string-append "make -C "
+                       (path->string (normalize-path here))
+		       " runtime.o"))
+
+(define runtime-path
+  (normalize-path (build-path here "runtime.o")))

langs/extort/test/all.rkt

@@ -4,14 +4,15 @@
          "../interp-io.rkt"
          "../parse.rkt"
          "../types.rkt"
+	 "../build-runtime.rkt"
          a86/interp
          rackunit)
 
 ;; link with runtime for IO operations
-(unless (file-exists? "../runtime.o")
-  (system "make -C .. runtime.o"))
+;(unless (file-exists? "../runtime.o")
+;  (system "make -C .. runtime.o"))
 (current-objs
- (list (path->string (normalize-path "../runtime.o"))))
+ (list (path->string runtime-path)))
 
 (define (test-runner run)