fix raco ctool --c-mods' for racket'

Merge to 5.2.1 original commit: 6c4cd0e9c2
2012-01-19 07:53:45 -07:00 · 2012-01-19 07:53:45 -07:00 · aae4950f02
commit aae4950f02
parent f751553b48
1 changed files with 19 additions and 0 deletions
--- a/collects/tests/racket/ctool.rkt
+++ b/collects/tests/racket/ctool.rkt
@ -0,0 +1,19 @@
+#lang racket
+(require setup/dirs)
+
+(define raco (build-path (find-console-bin-dir)
+                         (if (eq? (system-type) 'windows)
+                             "raco.exe"
+                             "raco")))
+
+(define tmp (make-temporary-file))
+
+(system* raco
+         "ctool"
+         "--3m"
+         "--c-mods"
+         tmp
+         "++lib"
+         "racket")
+
+(delete-file tmp)