turn all +…+ definitions constant

Sigrid Solveig Haflínudóttir committed 3 months ago

Commit e68cd5f1 parent d6d0d7c4 files · +9 −4Browse files

Unified · Split

4 files

boot/sl.boot +3 −4
src/sl.c +2 −0
src/vm_funcs.c +2 −0
src/vm_jmptbl.c +2 −0

 (:doc-example . "(subseq '(1 2 3) 0 2)\n; ↳ (1 2)")
 (:doc-example . "(subseq #(a b c) 2)\n; ↳ #(c)") (:doc-group . list) (:doc-see . str-sub) (:doc-see . copy-list)
 (:doc-see . nthcdr))  set! ((:doc-example . "(def a NIL)\n(def b NIL)\n(def c NIL)\n(set! a 1 b 2 c (+ a b))\n; ↳ 3\na\n; ↳ 1\nb\n; ↳ 2\nc\n; ↳ 3")
-(:doc-group . syntax) (:doc-see . set-top-level-value!) (:doc-see . let))  vm-stats ((:doc-group . debug)
+(:doc-group . syntax) (:doc-see . set-top-level-value!) (:doc-see . let))  vm-stats ((:doc-group . vm))  ptr ((:doc-group . number)
-(:doc-group . vm))  ptr ((:doc-group . number) (:doc-see . p32) (:doc-see . p64) (:doc-see . ptr?))  caddar ((:doc-group . list))  print-stack-trace ((:doc-group . error)
+(:doc-see . p32) (:doc-see . p64) (:doc-see . ptr?))  caddar ((:doc-group . list))  print-stack-trace ((:doc-group . error)
 (:doc-see . stacktrace))  *stdin* ((:doc-group . io) (:doc-see . *stdout*) (:doc-see . *stderr*))  cosh ((:doc-group . number))  values ((:doc-group . syntax)
 (:doc-see . call-with-values) (:doc-see . receive))  < ((:doc-group . compare) (:doc-group . builtin))  copy-tree ((:doc-example . "(def a '(1 (2 3)))\n(def b (copy-tree a))\n(equal? a b)\n; ↳ T\n(eq? a b)\n; ↳ NIL\n(equal? (cadr a) (cadr b))\n; ↳ T\n(eq? (cadr a) (cadr b))\n; ↳ NIL")
 (:doc-group . list) (:doc-see . copy-list))  sin ((:doc-group . number))  f32 ((:doc-group . number)
 (:doc-example . "(def b (buffer))\n(with-output (s b) (io-write s \"hello\"))\n; ↳ 5\n(length b)\n; ↳ 5")
 (:doc-group . io) (:doc-see . with-output-to))  cdaar ((:doc-group . list))  cdar ((:doc-group . list))  iota ((:doc-example . "(iota 4)\n; ↳ (0 1 2 3)")
 (:doc-example . "(iota 4 6)\n; ↳ (6 7 8 9)") (:doc-example . "(iota 4 6 -0.5)\n; ↳ (6 5.5 5.0 4.5)")
-(:doc-group . list) (:doc-see . map-int))  caaddr ((:doc-group . list))  environment ((:doc-group . debug)
+(:doc-group . list) (:doc-see . map-int))  caaddr ((:doc-group . list))  environment ((:doc-group . vm)
-(:doc-group . vm)
 (:doc-see . print-stack-trace))  getprop ((:doc-example . "(def x '(1 2 3))\n(putprop x 'words \"one two three\")\n; ↳ \"one two three\"\n(getprop x 'words)\n; ↳ \"one two three\"\n(getprop x 'huh)\n; ‼ key not found: huh\n(getprop x 'huh \"fallback\")\n; ↳ \"fallback\"")
 (:doc-group . prop) (:doc-see . putprop) (:doc-see . remprop))  putprop ((:doc-example . "(def x '(1 2 3))\n(putprop x 'words \"one two three\")\n; ↳ \"one two three\"\n(getprop x 'words)\n; ↳ \"one two three\"")
 (:doc-group . prop) (:doc-see . getprop)

src/sl.c+2−0

 					sym->binding = car_(e);
 					if(isfn(sym->binding) && !isbuiltin(sym->binding) && fn_name(sym->binding))
 						fn_name(sym->binding) = s;
+					if(sym->name[0] == '+' && sym->name[1] != 0 && sym->name[strlen(sym->name)-1] == '+')
+						sym->flags |= FLAG_CONST;
 					e = cdr_(e);
 				}
 			}

src/vm_funcs.c+2−0

@@ -795,6 +795,8 @@ MAKE_OP(SETG_) · 794 unmodified lines
795	cthrow(const_error(v), nargs);	795	cthrow(const_error(v), nargs);
796	}	796	}
797	sym->binding = sl.sp[-1];	797	sym->binding = sl.sp[-1];
		798	if(sym->name[0] == '+' && sym->name[1] != 0 && sym->name[strlen(sym->name)-1] == '+')
		799	sym->flags \|= FLAG_CONST;
798	NEXT_OP;	800	NEXT_OP;
799	}	801	}
800		802

src/vm_jmptbl.c+2−0

@@ -862,6 +862,8 @@ OP(OP_SETGL) · 861 unmodified lines
862	cthrow(const_error(v), nargs);	862	cthrow(const_error(v), nargs);
863	}	863	}
864	sym->binding = sl.sp[-1];	864	sym->binding = sl.sp[-1];
		865	if(sym->name[0] == '+' && sym->name[1] != 0 && sym->name[strlen(sym->name)-1] == '+')
		866	sym->flags \|= FLAG_CONST;
865	NEXT_OP;	867	NEXT_OP;
866	}	868	}
867		869

turn all +…+ definitions constant

Keyboard shortcuts

General

Issues and pull requests

Issues, pull requests and Inbox

Repository code