diff --git a/basis/calendar/calendar.factor b/basis/calendar/calendar.factor index 7683c2592f..522e0c52f3 100644 --- a/basis/calendar/calendar.factor +++ b/basis/calendar/calendar.factor @@ -211,7 +211,7 @@ M: real +minute ( timestamp n -- timestamp ) M: number +second ( timestamp n -- timestamp ) [ over second>> + seconds/minutes [ >>second ] dip +minute ] unless-zero ; -: (time+) ( timestamp duration -- timestamp' ) +: (time+) ( timestamp duration -- timestamp' duration ) [ second>> +second ] keep [ minute>> +minute ] keep [ hour>> +hour ] keep diff --git a/basis/compiler/cfg/linearization/linearization.factor b/basis/compiler/cfg/linearization/linearization.factor index 6926ce7b4b..584c4cd662 100644 --- a/basis/compiler/cfg/linearization/linearization.factor +++ b/basis/compiler/cfg/linearization/linearization.factor @@ -37,7 +37,7 @@ M: insn linearize-insn , drop ; M: ##branch linearize-insn drop dup successors>> first emit-branch ; -: (binary-conditional) ( basic-block insn -- basic-block successor1 successor2 src1 src2 cc -- ) +: (binary-conditional) ( basic-block insn -- basic-block successor1 successor2 src1 src2 cc ) [ dup successors>> first2 ] [ [ src1>> ] [ src2>> ] [ cc>> ] tri ] bi* ; inline diff --git a/basis/compiler/codegen/codegen.factor b/basis/compiler/codegen/codegen.factor index 6e76badc9c..0dc5a855e3 100644 --- a/basis/compiler/codegen/codegen.factor +++ b/basis/compiler/codegen/codegen.factor @@ -95,7 +95,7 @@ M: ##dispatch-label generate-insn label>> %dispatch-label ; M: ##dispatch generate-insn [ src>> register ] [ temp>> register ] [ offset>> ] tri %dispatch ; -: >slot< +: >slot< ( insn -- dst obj slot tag ) { [ dst>> register ] [ obj>> register ] diff --git a/basis/cpu/x86/64/64.factor b/basis/cpu/x86/64/64.factor index 2077f51e0a..841a4e4c55 100644 --- a/basis/cpu/x86/64/64.factor +++ b/basis/cpu/x86/64/64.factor @@ -37,7 +37,7 @@ M:: x86.64 %dispatch ( src temp offset -- ) M: x86.64 param-reg-1 int-regs param-regs first ; M: x86.64 param-reg-2 int-regs param-regs second ; -: param-reg-3 int-regs param-regs third ; inline +: param-reg-3 ( -- reg ) int-regs param-regs third ; inline M: int-regs return-reg drop RAX ; M: float-regs return-reg drop XMM0 ; diff --git a/basis/sequences/next/next.factor b/basis/sequences/next/next.factor index a0a441ab50..19b406cc58 100644 --- a/basis/sequences/next/next.factor +++ b/basis/sequences/next/next.factor @@ -3,7 +3,8 @@ IN: sequences.next ; inline -: MAP_FAILED -1 ; inline +CONSTANT: NGROUPS_MAX 16 -: NGROUPS_MAX 16 ; inline - -: DT_UNKNOWN 0 ; inline -: DT_FIFO 1 ; inline -: DT_CHR 2 ; inline -: DT_DIR 4 ; inline -: DT_BLK 6 ; inline -: DT_REG 8 ; inline -: DT_LNK 10 ; inline -: DT_SOCK 12 ; inline -: DT_WHT 14 ; inline +CONSTANT: DT_UNKNOWN 0 +CONSTANT: DT_FIFO 1 +CONSTANT: DT_CHR 2 +CONSTANT: DT_DIR 4 +CONSTANT: DT_BLK 6 +CONSTANT: DT_REG 8 +CONSTANT: DT_LNK 10 +CONSTANT: DT_SOCK 12 +CONSTANT: DT_WHT 14 C-STRUCT: group { "char*" "gr_name" } diff --git a/core/math/math-docs.factor b/core/math/math-docs.factor index 3c2b7f67e2..2f7ab75103 100644 --- a/core/math/math-docs.factor +++ b/core/math/math-docs.factor @@ -180,6 +180,7 @@ HELP: 1- } ; HELP: ?1+ +{ $values { "x" { $maybe number } } { "y" number } } { $description "If the input is not " { $link f } ", adds one. Otherwise, outputs a " { $snippet "0" } "." } ; HELP: sq diff --git a/core/math/math.factor b/core/math/math.factor index 03be2208c2..7c9be868b3 100755 --- a/core/math/math.factor +++ b/core/math/math.factor @@ -64,7 +64,7 @@ PRIVATE> : recip ( x -- y ) 1 swap / ; inline : sgn ( x -- n ) dup 0 < [ drop -1 ] [ 0 > 1 0 ? ] if ; inline -: ?1+ [ 1+ ] [ 0 ] if* ; inline +: ?1+ ( x -- y ) [ 1+ ] [ 0 ] if* ; inline : rem ( x y -- z ) abs tuck mod over + swap mod ; foldable