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

General style changes, nothing major

Browse Source
This commit is contained in:
Emin Arslan
2025-10-14 19:01:29 +03:00
committed by Emin Arslan
parent a905ab2b42
commit 965804c18d
4 changed files with 17 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
bin/main.ml
View File

@@ -3,6 +3,7 @@ open Printf;;
open Lisp;; open Lisp;;
open Eval;; open Eval;;
open Read;; open Read;;
let rec repl env c = let rec repl env c =
let () = printf ">>> "; Out_channel.flush Out_channel.stdout; in let () = printf ">>> "; Out_channel.flush Out_channel.stdout; in
match In_channel.input_line c with match In_channel.input_line c with
@@ -14,4 +15,5 @@ let rec repl env c =
Out_channel.flush Out_channel.stdout; Out_channel.flush Out_channel.stdout;
repl env c;; repl env c;;
let _ = repl (make_env ()) (In_channel.stdin) let _ = repl (make_env ()) (In_channel.stdin)

4
lib/dune
View File

@@ -1,7 +1,5 @@
(library (library
(name lisp) (name lisp))
;(modules ast read lexer parser)
)
(include_subdirs unqualified) (include_subdirs unqualified)

1
lib/lexer.mll
View File

@@ -33,4 +33,3 @@ rule read =
| '\'' { QUOTE } | '\'' { QUOTE }
| _ { raise (SyntaxError ("Unexpected char: " ^ Lexing.lexeme lexbuf))} | _ { raise (SyntaxError ("Unexpected char: " ^ Lexing.lexeme lexbuf))}
| eof { EOF } | eof { EOF }