22 lines
No EOL
312 B
Text
22 lines
No EOL
312 B
Text
import Int.
|
|
|
|
variable first : Bool
|
|
|
|
scope
|
|
variables a b c : Int
|
|
variable f : Int -> Int
|
|
eval f a
|
|
pop_scope
|
|
|
|
eval f a -- should produce an error
|
|
|
|
print environment 1
|
|
|
|
scope
|
|
infixl 100 ++ : Int::add
|
|
check 10 ++ 20
|
|
pop_scope
|
|
|
|
check 10 ++ 20 -- should produce an error
|
|
|
|
pop_scope -- should produce an error |