diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-15 21:04:43 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-15 21:04:43 -0500 |
| commit | 43c18567fa4bc61329e1f712946bfd1c69c7fdee (patch) | |
| tree | 48bd65650029b3186d99ea99b72c365a296a3cf7 | |
| parent | 68c008cf5237e955cfc63785e92508f6f4e71f49 (diff) | |
| download | mal-43c18567fa4bc61329e1f712946bfd1c69c7fdee.tar.gz mal-43c18567fa4bc61329e1f712946bfd1c69c7fdee.zip | |
Ruby: remove debug. Update TODO.
| -rw-r--r-- | docs/TODO | 2 | ||||
| -rw-r--r-- | ruby/step6_file.rb | 1 | ||||
| -rw-r--r-- | ruby/step7_quote.rb | 1 | ||||
| -rw-r--r-- | ruby/step8_macros.rb | 1 | ||||
| -rw-r--r-- | ruby/step9_interop.rb | 1 | ||||
| -rw-r--r-- | ruby/stepA_more.rb | 1 |
6 files changed, 2 insertions, 5 deletions
@@ -8,6 +8,7 @@ All: - can let* and quasiquote be TCO'd ? - more interop tests + - test metadata on builtin functions (i.e. +) - regular expression matching in runtest - Print full exception when test gets EOF from expect @@ -50,6 +51,7 @@ Postscript: Python: Ruby: + - use same history file --------------------------------------------- diff --git a/ruby/step6_file.rb b/ruby/step6_file.rb index 01d1988..5425eac 100644 --- a/ruby/step6_file.rb +++ b/ruby/step6_file.rb @@ -99,7 +99,6 @@ _ref[:slurp, lambda {|f| File.read(f) }] RE["(def! not (fn* (a) (if a false true)))"] RE["(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))"] -p Dir.pwd if ARGV.size > 0 ARGV.each {|f| RE["(load-file \"" + f + "\")"] diff --git a/ruby/step7_quote.rb b/ruby/step7_quote.rb index d2ad6ed..a39b0ce 100644 --- a/ruby/step7_quote.rb +++ b/ruby/step7_quote.rb @@ -119,7 +119,6 @@ _ref[:slurp, lambda {|f| File.read(f) }] RE["(def! not (fn* (a) (if a false true)))"] RE["(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))"] -p Dir.pwd if ARGV.size > 0 ARGV.each {|f| RE["(load-file \"" + f + "\")"] diff --git a/ruby/step8_macros.rb b/ruby/step8_macros.rb index 13a742d..36f2a0d 100644 --- a/ruby/step8_macros.rb +++ b/ruby/step8_macros.rb @@ -144,7 +144,6 @@ _ref[:slurp, lambda {|f| File.read(f) }] RE["(def! not (fn* (a) (if a false true)))"] RE["(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))"] -p Dir.pwd if ARGV.size > 0 ARGV.each {|f| RE["(load-file \"" + f + "\")"] diff --git a/ruby/step9_interop.rb b/ruby/step9_interop.rb index 011aea0..869a86d 100644 --- a/ruby/step9_interop.rb +++ b/ruby/step9_interop.rb @@ -146,7 +146,6 @@ _ref[:slurp, lambda {|f| File.read(f) }] RE["(def! not (fn* (a) (if a false true)))"] RE["(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))"] -p Dir.pwd if ARGV.size > 0 ARGV.each {|f| RE["(load-file \"" + f + "\")"] diff --git a/ruby/stepA_more.rb b/ruby/stepA_more.rb index b166d79..974b3c7 100644 --- a/ruby/stepA_more.rb +++ b/ruby/stepA_more.rb @@ -164,7 +164,6 @@ RE["(defmacro! cond (fn* (& xs) (if (> (count xs) 0) (list 'if (first xs) (if (> RE["(defmacro! or (fn* (& xs) (if (empty? xs) nil (if (= 1 (count xs)) (first xs) `(let* (or_FIXME ~(first xs)) (if or_FIXME or_FIXME (or ~@(rest xs))))))))"] RE["(def! load-file (fn* (f) (eval (read-string (str \"(do \" (slurp f) \")\")))))"] -p Dir.pwd if ARGV.size > 0 ARGV.each {|f| RE["(load-file \"" + f + "\")"] |