haxala1r/olisp
1
0
Fork 0
Code Issues 3 Pull Requests Packages Projects 1 Releases Wiki Activity

minor changes
All checks were successful
ci/woodpecker/push/debian Pipeline was successful
Details
ci/woodpecker/push/nix Pipeline was successful
Details
ci/woodpecker/push/fedora Pipeline was successful
Details

Browse Source
This commit is contained in:
Emin Arslan
2026-02-02 19:53:08 +03:00
parent d7729571ea
commit bd907fe69a
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/compiler/core_ast.ml
View File

@@ -28,8 +28,6 @@ type top_level =
let rec pair_of_def : Syntactic_ast.definition Syntactic_ast.t -> string * expression = function let rec pair_of_def : Syntactic_ast.definition Syntactic_ast.t -> string * expression = function
| Syntactic_ast.Define (s, e) -> (s, of_expr e) | Syntactic_ast.Define (s, e) -> (s, of_expr e)
and pair_of_binding = function and pair_of_binding = function
@@ -53,7 +51,7 @@ and make_apply f args =
(* desugars this... (* desugars this...
(let ((x 5) (y 4)) (f x y)) (let ((x 5) (y 4)) (f x y))
... into this... ... into this...
(((lambda (x) (lambda (y) ((f x) y))) 5) 4) (((lambda (x) (lambda (y) ((f x) y))) 5) 4)
*) *)
and make_let bs body = and make_let bs body =
let bs = List.map pair_of_binding bs in let bs = List.map pair_of_binding bs in