fez-lisp 1.6.7 → 1.6.9
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.
- package/lib/baked/std.js +1 -1
- package/package.json +1 -1
- package/src/check.js +2 -2
- package/src/macros.js +6 -6
package/package.json
CHANGED
package/src/check.js
CHANGED
|
@@ -1643,8 +1643,8 @@ export const typeCheck = (ast, ctx = SPECIAL_FORM_TYPES) => {
|
|
|
1643
1643
|
throw new TypeError(
|
|
1644
1644
|
`Incorrect type of argument (${i}) for (${
|
|
1645
1645
|
first[VALUE]
|
|
1646
|
-
}). Expected (${
|
|
1647
|
-
args[i][STATS]
|
|
1646
|
+
}). Expected (${formatSubType(
|
|
1647
|
+
getTypes(args[i][STATS])
|
|
1648
1648
|
)}) but got (${toTypeNames(
|
|
1649
1649
|
rest[i][TYPE]
|
|
1650
1650
|
)}) (${stringifyArgs(exp)}) (check #2)`
|
package/src/macros.js
CHANGED
|
@@ -31,11 +31,11 @@ export const SUGGAR = {
|
|
|
31
31
|
POWER: '**',
|
|
32
32
|
INTEGER_DEVISION: '//',
|
|
33
33
|
CONDITION: 'cond',
|
|
34
|
-
BIG_INT: '
|
|
35
|
-
BIG_INT_ADDITION: '
|
|
36
|
-
BIG_INT_SUBTRACTION: '
|
|
37
|
-
BIG_INT_DIVISION: '
|
|
38
|
-
BIG_INT_MULTIPLICATION: '
|
|
34
|
+
BIG_INT: 'Int',
|
|
35
|
+
BIG_INT_ADDITION: 'Iadd',
|
|
36
|
+
BIG_INT_SUBTRACTION: 'Isub',
|
|
37
|
+
BIG_INT_DIVISION: 'Idiv',
|
|
38
|
+
BIG_INT_MULTIPLICATION: 'Imul',
|
|
39
39
|
NEW_BIG_INTEGER: 'new:big-integer',
|
|
40
40
|
PROMISES: '*DATA*'
|
|
41
41
|
}
|
|
@@ -756,7 +756,7 @@ export const replaceQuotes = (source) =>
|
|
|
756
756
|
.replaceAll(/\{/g, `(${SUGGAR.CREATE_LIST} `)
|
|
757
757
|
.replaceAll(/\}/g, ')')
|
|
758
758
|
export const replaceBigInteger = (source) =>
|
|
759
|
-
source.replaceAll(/\(
|
|
759
|
+
source.replaceAll(/\(I\s+([0-9]+)\)/g, (_, num) => `(Int "${num}")`)
|
|
760
760
|
export const deSuggarSource = (source) =>
|
|
761
761
|
replaceQuotes(
|
|
762
762
|
replaceStrings(replaceTemplateLiteralStrings(replaceBigInteger(source)))
|