diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-03-30 23:27:14 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-03-30 23:27:14 -0700 |
| commit | 0c49e3197f5713c72f2d088a4c9f382f6c019ad2 (patch) | |
| tree | cae9d956d3e6f6d973a74e9eabaa60539dfe9058 /stdlib | |
| parent | f4edb0505467ce4fe4ac23f1889062d0bbddb94d (diff) | |
| download | txr-0c49e3197f5713c72f2d088a4c9f382f6c019ad2.tar.gz txr-0c49e3197f5713c72f2d088a4c9f382f6c019ad2.tar.bz2 txr-0c49e3197f5713c72f2d088a4c9f382f6c019ad2.zip | |
New function: isecp.
* eval.c (eval_init): Register isecp intrinsic.
* lib.c (isecp): New function.
* lib.h (isecp): Declared.
* stdlib/compiler.tl (lambda-apply-transform,
dump-compiled-objects): Use isecp instead of isec, since the
actual intersection of symbols isn't needed, only whether it
exists.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/compiler.tl | 4 | ||||
| -rw-r--r-- | stdlib/doc-syms.tl | 9 |
2 files changed, 7 insertions, 6 deletions
diff --git a/stdlib/compiler.tl b/stdlib/compiler.tl index 7d9cb515..63ceb519 100644 --- a/stdlib/compiler.tl +++ b/stdlib/compiler.tl @@ -2037,7 +2037,7 @@ (al-val (gensym)) (shadow-p (let ((all-vars (append pars.req pars.(opt-syms) (if pars.rest (list pars.rest))))) - (or (isec all-vars fix-arg-iter) + (or (isecp all-vars fix-arg-iter) (member apply-list-expr all-vars))))) ^(,(if shadow-p 'let 'alet) ,(zip fix-vals fix-arg-iter) (let* ,(build @@ -2406,7 +2406,7 @@ self obj))))) (symvec (sys:vm-desc-symvec vm-desc))) out.(add (list-from-vm-desc vm-desc)) - (when (isec symvec %package-manip%) + (when (isecp symvec %package-manip%) out.(add :fence))))) (dump-to-tlo out-stream out)))) diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 5ce5c0d0..53d01739 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -479,7 +479,7 @@ ("delete-package" "N-02E687F3") ("derived" "N-0151798B") ("dev-t" "N-01153D9E") - ("diff" "N-0385B074") + ("diff" "N-00DFDE76") ("digits" "N-03CC559E") ("digpow" "N-030C5561") ("dir-name" "N-02C01721") @@ -1037,7 +1037,8 @@ ("ipv6-v6only" "N-001E8B40") ("iread" "N-03FE5500") ("isatty" "N-03709E8A") - ("isec" "N-0385B074") + ("isec" "N-00DFDE76") + ("isecp" "N-00DFDE76") ("isig" "N-0072FF5E") ("isqrt" "D-0038") ("istrip" "N-02391683") @@ -1920,7 +1921,7 @@ ("symbol-package" "N-02AB2428") ("symbol-value" "N-00004DDC") ("symbolp" "N-01C0BF69") - ("symdiff" "N-0385B074") + ("symdiff" "N-00DFDE76") ("symlink" "N-009EF0C8") ("sys:abscond*" "N-02DF20E5") ("sys:abscond-from" "N-02E20FE2") @@ -2084,7 +2085,7 @@ ("uname" "N-0308D954") ("unget-byte" "D-0007") ("unget-char" "D-0055") - ("uni" "N-0385B074") + ("uni" "N-00DFDE76") ("unintern" "N-01B6BFC2") ("union" "N-01C78B86") ("union-get" "N-02FA4F0C") |