Skip to content

Commit

Permalink
allow to use unquoted symbols in --> to get the function
Browse files Browse the repository at this point in the history
  • Loading branch information
jcubic committed Mar 25, 2024
1 parent 66c8eb5 commit cdc076d
Show file tree
Hide file tree
Showing 12 changed files with 29 additions and 36 deletions.
1 change: 1 addition & 0 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
Expand Up @@ -33,6 +33,7 @@
* add `with-input-from-string` and `read-all` [#327](https://github.com/jcubic/lips/issues/327)
* add `#!fold-case` and `#!no-fold-case` directives [#342](https://github.com/jcubic/lips/issues/342)
* add `drop` procedure
* allow to use unquoted symbols in `-->` to get the function
### Bugfix
* fix `let-values` to allow binding to list [#281](https://github.com/jcubic/lips/issues/281)
* fix wrong strings in `string-fill!`
Expand Down
2 changes: 1 addition & 1 deletion README.md
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
[![npm](https://img.shields.io/badge/npm-1.0.0%E2%80%93beta.18.1-blue.svg)](https://www.npmjs.com/package/@jcubic/lips)
![1.0.0 Complete](https://img.shields.io/github/milestones/progress-percent/jcubic/lips/1?label=1.0.0%20Complete)
[![Build and test](https://github.com/jcubic/lips/actions/workflows/build.yaml/badge.svg?branch=devel&event=push)](https://github.com/jcubic/lips/actions/workflows/build.yaml)
[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&fb420559c6037d7ad3fafa6354d1553f)](https://coveralls.io/github/jcubic/lips?branch=devel)
[![Coverage Status](https://coveralls.io/repos/github/jcubic/lips/badge.svg?branch=devel&f162a46062f9ff5876dfdf7a56c407c0)](https://coveralls.io/github/jcubic/lips?branch=devel)
[![Join Gitter Chat](https://badges.gitter.im/Join%20Chat.svg)](https://gitter.im/jcubic/lips)
![NPM Download Count](https://img.shields.io/npm/dm/@jcubic/lips)
![JSDelivr Download count](https://img.shields.io/jsdelivr/npm/hm/@jcubic/lips)
Expand Down
11 changes: 4 additions & 7 deletions dist/lips.cjs

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

11 changes: 4 additions & 7 deletions dist/lips.esm.js

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

4 changes: 2 additions & 2 deletions dist/lips.esm.min.js

Large diffs are not rendered by default.

11 changes: 4 additions & 7 deletions dist/lips.js

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

4 changes: 2 additions & 2 deletions dist/lips.min.js

Large diffs are not rendered by default.

2 changes: 1 addition & 1 deletion dist/std.min.scm

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

8 changes: 5 additions & 3 deletions dist/std.scm

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

Binary file modified dist/std.xcb
Binary file not shown.
8 changes: 5 additions & 3 deletions lib/bootstrap.scm
Original file line number Diff line number Diff line change
Expand Up @@ -105,9 +105,11 @@
(let* ((value (gensym "value"))
(name (if (quoted-symbol? code)
(symbol->string (cadr code))
(if (pair? code)
(symbol->string (car code))
code)))
(if (symbol? code)
(symbol->string code)
(if (pair? code)
(symbol->string (car code))
code))))
(accessor (if (string? name)
`(. ,obj ,@(split "." name))
`(. ,obj ,name)))
Expand Down
3 changes: 0 additions & 3 deletions src/lips.js
Original file line number Diff line number Diff line change
Expand Up @@ -10492,9 +10492,6 @@ var global_env = new Environment({

Function that left shifts the value a by value b bits.`),
not: doc('not', function not(value) {
if (is_null(value)) {
return true;
}
return !value;
}, `(not object)

Expand Down

0 comments on commit cdc076d

Please sign in to comment.