equal
deleted
inserted
replaced
367 , try (string "#$") >> many hexDigit >>= \c -> comments >> return (HexCharCode c) |
367 , try (string "#$") >> many hexDigit >>= \c -> comments >> return (HexCharCode c) |
368 , char '#' >> many digit >>= \c -> comments >> return (CharCode c) |
368 , char '#' >> many digit >>= \c -> comments >> return (CharCode c) |
369 , char '$' >> many hexDigit >>= \h -> comments >> return (HexNumber h) |
369 , char '$' >> many hexDigit >>= \h -> comments >> return (HexNumber h) |
370 --, char '-' >> expression >>= return . PrefixOp "-" |
370 --, char '-' >> expression >>= return . PrefixOp "-" |
371 , char '-' >> reference >>= return . PrefixOp "-" . Reference |
371 , char '-' >> reference >>= return . PrefixOp "-" . Reference |
372 , try $ string "not" >> error "unexpected not in term" |
372 , (try $ string "not" >> notFollowedBy comments) >> unexpected "'not'" |
373 , try $ string "nil" >> return Null |
373 , try $ string "nil" >> return Null |
374 , reference >>= return . Reference |
374 , reference >>= return . Reference |
375 ] <?> "simple expression" |
375 ] <?> "simple expression" |
376 |
376 |
377 table = [ |
377 table = [ |