Add racket

.gitignore

@@ -3,3 +3,5 @@
 *.o
 *.so
 META-INF
+*.rkt
+test/main

Makefile

@@ -7,12 +7,13 @@ install:
 	install compile-r7rs ${PREFIX}/bin/compile-r7rs
 
 run-test:
-	@cd test && ../compile-r7rs -D ./libs -D ./libs2 main.scm
+	@cd test && ../compile-r7rs -D . -D ./libs -D ./libs2 main.scm
 
 clean:
 	find . -name "*.c*" -delete
 	find . -name "*.o*" -delete
 	find . -name "*.so*" -delete
+	find . -name "*.rkt*" -delete
 	find . -name "*.import.scm" -delete
 	find . -name "*.link" -delete
 	find . -name "*.class" -delete

README.md

@@ -55,7 +55,6 @@ Requires nothing to be installed to run.
 - csc (Chicken)
 - racket (Racket)
 
-
 ### Java ARchive (JAR)
 
 Only requires Java to be installed to run.

compile-r7rs

@@ -143,6 +143,28 @@ case ${SCC} in
         done
         scm_cmd="mosh --loadpath=$paths"
         ;;
+    racket)
+        paths=""
+        for dir in $libdirs
+        do
+            paths="${PWD}/${dir#./}:$paths"
+            for lib in $(find "$dir" -name "*.sld")
+            do
+                {
+                    echo "#lang r7rs"
+                    echo "(import (scheme base))"
+                    echo "(include \"$(basename $lib)\")"
+                } > "${lib%.sld}.rkt"
+            done
+        done
+
+        {
+            echo "#lang r7rs"
+            cat "$main"
+        } > "${main%.scm}.rkt"
+        PLTCOLLECTS="$paths" raco exe --orig-exe -o $output ++lang r7rs "${main%.scm}.rkt"
+        exit
+        ;;
     sash)
         paths="-L $tmpdir"
         for dir in $libdirs

test/main.scm

@@ -1,5 +1,6 @@
 (import (scheme base)
         (scheme write)
+        (scheme process-context)
         (libs hello)
         (libs2 world))