mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Fix bug in compiler

This commit is contained in:
Calvin Rose 2017-06-25 19:17:54 -04:00
parent 1f8b671488
commit d6967a564d
2 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/compile.c
View File

@ -574,7 +574,7 @@ static Slot compile_assign(GstCompiler *c, FormOptions opts, GstValue left, GstV
GstValue lit = gst_wrap_nil();
GstScope *scope = c->tail;
GstBuffer *buffer = c->buffer;
FormOptions subOpts;
FormOptions subOpts = form_options_default();
uint16_t target = 0;
uint16_t level = 0;
uint16_t flags = 0;
@ -1064,15 +1064,7 @@ static SpecialFormHelper get_special(const GstValue *form) {
* problems. */
if (gst_string_length(name) == 0)
return NULL;
/* One character specials. */
if (gst_string_length(name) == 1) {
switch(name[0]) {
case ':': return compile_def;
default:
break;
}
}
/* Multi character specials. Mostly control flow. */
/* Specials */
switch (name[0]) {
case 'a':
{

21
gsttests/basic.gst
View File

@ -1,8 +1,19 @@
(do
(: assert (fn [x e] (if x x (do (print e) (exit 1)))))
(print "Running basic tests...")
(def assert (fn [x e] (if x (do (write stdout ".") x) (do (print e) (exit 1)))))
(assert (= 10 (+ 1 2 3 4)) "addition")
(assert (= -8 (- 1 2 3 4)) "subtraction")
(assert (= 24 (* 1 2 3 4)) "multiplication")
(assert (= 0.1 (/ 1.0 10)) "division")
(exit 0)
)
(assert (= 4 (blshift 1 2)) "left shift")
(assert (= 1 (brshift 4 2)) "right shift")
(var accum 1)
(var count 0)
(while (< count 16)
(varset accum (blshift accum 1))
(varset count (+ 1 count)))
(assert (= accum 65536) "loop")
(print)
(exit 0)