trying to write a utility to help me bump version numbers.

dyoo · Nov 21, 2010 · f40bd76 · f40bd76
1 parent 7a75840
commit f40bd76
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/js-vm/bump-to.rkt b/js-vm/bump-to.rkt
@@ -0,0 +1,15 @@
+#lang racket
+
+
+(define files-to-change
+  (find-files (lambda (p) 
+		(and (file-exists? p)
+		     (bytes=? (filename-extension p)
+			      #"rkt")))))
+
+(for ([f files-to-change])
+  (let ([b (file->bytes f)])
+    (call-with-output-file f
+      (lambda (op)
+	(write-bytes b op))
+      #:exists replace)))