diff options
| author | Joel Martin <github@martintribe.org> | 2015-02-10 01:51:28 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-02-10 01:51:28 -0600 |
| commit | 0b234e13a114a9f7eb6e44c1febf11158907f0a5 (patch) | |
| tree | 0ee56d5e99a54ad5e987fc1a27465192b4cb042d /matlab/stepA_interop.m | |
| parent | 53942f889aa103e5ea298b92b7a4fc7d7a133d1a (diff) | |
| download | mal-0b234e13a114a9f7eb6e44c1febf11158907f0a5.tar.gz mal-0b234e13a114a9f7eb6e44c1febf11158907f0a5.zip | |
matlab: fix do/slice, strings. Self-hosting!
Fix Makefile stats/stats-lisp.
Diffstat (limited to 'matlab/stepA_interop.m')
| -rw-r--r-- | matlab/stepA_interop.m | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/matlab/stepA_interop.m b/matlab/stepA_interop.m index f9e3364..5b8e720 100644 --- a/matlab/stepA_interop.m +++ b/matlab/stepA_interop.m @@ -76,6 +76,7 @@ end function ret = EVAL(ast, env) while true + %fprintf('EVAL: %s\n', printer.pr_str(ast, true)); if ~types.list_Q(ast) ret = eval_ast(ast, env); return; @@ -202,7 +203,7 @@ function main(args) rep('(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))))))))', repl_env); if ~isempty(args) - rep(strcat('(load-file "', args{1}, '")'), repl_env); + rep(sprintf('(load-file "%s")', args{1}), repl_env); quit; end |