diff options
Diffstat (limited to 'frontend/syntax.icl')
| -rw-r--r-- | frontend/syntax.icl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/frontend/syntax.icl b/frontend/syntax.icl index 6623652..6890619 100644 --- a/frontend/syntax.icl +++ b/frontend/syntax.icl @@ -1329,10 +1329,8 @@ where instance <<< Expression where (<<<) file (Var ident) = file <<< ident - (<<<) file (App {app_symb, app_args, app_info_ptr}) - = file <<< app_symb <<< (if (app_symb.symb_name.id_name=="==" && isNilPtr app_info_ptr) "\"NIL\"" "") <<< ' ' <<< app_args -// was (<<<) file (App {app_symb, app_args}) -// = file <<< app_symb <<< ' ' <<< app_args + (<<<) file (App {app_symb, app_args}) + = file <<< app_symb <<< ' ' <<< app_args (<<<) file (f_exp @ a_exp) = file <<< '(' <<< f_exp <<< " @ " <<< a_exp <<< ')' (<<<) file (Let {let_info_ptr, let_binds, let_expr}) = write_binds (file <<< "let " <<< ptrToInt let_info_ptr <<< '\n') let_binds <<< "in\n" <<< let_expr where |