fez-lisp 1.4.18 → 1.4.19

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (4) hide show
  1. package/lib/baked/std.js +1 -1
  2. package/package.json +1 -1
  3. package/src/keywords.js +1 -0
  4. package/src/utils.js +17 -0
package/package.json CHANGED
@@ -2,7 +2,7 @@
2
2
  "name": "fez-lisp",
3
3
  "description": "Lisp interpreted & compiled to JavaScript",
4
4
  "author": "AT290690",
5
- "version": "1.4.18",
5
+ "version": "1.4.19",
6
6
  "type": "module",
7
7
  "main": "index.js",
8
8
  "keywords": [
package/src/keywords.js CHANGED
@@ -56,6 +56,7 @@ export const RUNTIME_TYPES = {
56
56
  export const DEBUG = {
57
57
  LOG: 'log',
58
58
  ASSERT: 'assert',
59
+ SIGNATURE: '?',
59
60
  CALLSTACK: '(CALLSTACK)' // so that you can't use it in the code
60
61
  }
61
62
 
package/src/utils.js CHANGED
@@ -290,6 +290,23 @@ export const debug = (ast, onSuccess = compile) => {
290
290
  const debugEnv = {
291
291
  ...keywords,
292
292
  [DEBUG.CALLSTACK]: [KEYWORDS.BLOCK],
293
+ [DEBUG.SIGNATURE]: (args, env) => {
294
+ if (args.length !== 1)
295
+ throw new RangeError(
296
+ `Invalid number of arguments to (${DEBUG.SIGNATURE}) (= 1) (${
297
+ DEBUG.SIGNATURE
298
+ } ${stringifyArgs(args)})`
299
+ )
300
+ const name = args[0][VALUE]
301
+ const signatures = std[0][1][1].filter(
302
+ (x) =>
303
+ x[0][TYPE] === APPLY &&
304
+ x[0][VALUE] === KEYWORDS.DEFINE_VARIABLE &&
305
+ x[1][TYPE] === WORD &&
306
+ x[1][VALUE].toString().includes(name)
307
+ )
308
+ return signatures.map(LISP.source).join('\n\n')
309
+ },
293
310
  [DEBUG.LOG]: (args, env) => {
294
311
  if (args.length !== 1 && args.length !== 2)
295
312
  throw new RangeError(