Commits

relsa committed 5c82f6e

Listを修正

Comments (0)

Files changed (1)

Interpreter/parser.mly

   | ConsExpr { $1 }
 
 ConsExpr : // Ex3.15, Ex3.16
-  | PExpr CONS ConsExpr { ConsExp ($1, $3) }
+  | ConsExpr CONS ConsExpr { ConsExp ($1, $3) }
   | LBR ListElems RBR { List.fold_right cleate_consexp $2 (NilLit ()) }
   | PExpr { $1 }