Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

r36811@phanatique: nelhage | 2008-07-24 22:44:11 -0700

 Formatting nit


git-svn-id: svn+ssh://lunatique.mit.edu/data/svn/flnv/trunk@35 e7f7c2cb-1e20-0410-8c26-a6ba679ee1f5
  • Loading branch information...
commit dc295a44701f3f17402d10aa2d72a1130d183ef7 1 parent 492333d
nelhage authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 FLNV/AST.hs
View
4 FLNV/AST.hs
@@ -95,11 +95,11 @@ desugarSequence = (liftM Sequence) . flatten
assertSymbol :: AST -> Desugar String
assertSymbol (AVar s) = return $ s
-assertSymbol other = throwError $ SyntaxError "Expected symbol" Nil
+assertSymbol other = throwError $ SyntaxError "Expected symbol" Nil
flatten :: Expression -> Desugar [AST]
flatten Nil = return []
flatten (Cons a b) = do head <- desugar a
tail <- flatten b
return $ head:tail
-flatten v = throwError $ SyntaxError "Invalid sequence" v
+flatten er = throwError $ SyntaxError "Invalid sequence" err
Please sign in to comment.
Something went wrong with that request. Please try again.