aboutsummaryrefslogtreecommitdiff
path: root/src/testsuite
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-01-16 21:35:55 +0000
committerdos-reis <gdr@axiomatics.org>2008-01-16 21:35:55 +0000
commit71e48772bf2d5d0f12b221b62f851eca77c2ae7d (patch)
treef8538b4242d4e3ec77fbdd13f6f35951feae1d06 /src/testsuite
parented82a24534ef85fddfabadb3a3f9fca47ce63fda (diff)
downloadopen-axiom-71e48772bf2d5d0f12b221b62f851eca77c2ae7d.tar.gz
Fix SF/1872564
* interp/compiler.boot (compPretend): Don't check for `new' compiler semantics. (compColonInside): Likewise. * testsuite/compiler/1872564.spad: New.
Diffstat (limited to 'src/testsuite')
-rw-r--r--src/testsuite/compiler/1872564.spad7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/testsuite/compiler/1872564.spad b/src/testsuite/compiler/1872564.spad
new file mode 100644
index 00000000..505a10b3
--- /dev/null
+++ b/src/testsuite/compiler/1872564.spad
@@ -0,0 +1,7 @@
+++ Contributed by Luke Wagner
+++ Issue: The compiler should allow pretend from Union types.
+)abbrev package TEST Test
+Test() : with
+ foo : Union(Integer, Float) -> SExpression
+ == add
+ foo u == u pretend SExpression