Permalink
Browse files

[cl-backend] hack around xspan and disable the beta reduction pass

  • Loading branch information...
1 parent dbcf870 commit 78147ba2fdb9f1446d972499b8b666d20b1c5c7a @pmurias pmurias committed Feb 27, 2011
Showing with 18 additions and 7 deletions.
  1. +3 −2 cl-backend/backend.lisp
  2. +15 −5 src/niecza
View
@@ -32,8 +32,9 @@
; Hacks
-(nam-op ehspan (class name unused start end goto) )
-(nam-op span (n1 n2 sync body) body)
+;(nam-op ehspan (class name unused start end goto) )
+;(nam-op span (n1 n2 sync body) body)
+(nam-op xspan (n1 n2 flag body dunno1 dunno2 dunno3) body)
(defun strip-ann (thing)
(if (consp thing)
View
@@ -350,6 +350,20 @@ else {
exit 1;
}
+my $stages;
+if $bcnd eq 'clisp' {
+ $stages = [
+ NieczaPassBegin.new,
+ NieczaPassSimplifier.new,
+ ];
+} else {
+ $stages = [
+ NieczaPassBegin.new,
+ NieczaPassBeta.new,
+ NieczaPassSimplifier.new,
+ ];
+}
+
my $c = NieczaCompiler.new(
module_finder => NieczaPathSearch.new(
path => @lib,
@@ -358,11 +372,7 @@ my $c = NieczaCompiler.new(
lang => $safe ?? 'SAFE' !! $lang,
safemode => $safe,
),
- stages => [
- NieczaPassBegin.new,
- NieczaPassBeta.new,
- NieczaPassSimplifier.new,
- ],
+ stages => $stages,
backend => $backend,
verbose => $verb,
);

0 comments on commit 78147ba

Please sign in to comment.