Loading android/net.fs +3 −1 Original line number Diff line number Diff line Loading @@ -15,10 +15,12 @@ \ You should have received a copy of the GNU Affero General Public License \ along with this program. If not, see <http://www.gnu.org/licenses/>. Defer addr-changed ' noop is addr-changed also android also jni :noname defers android-network network-info dup IF ]xref beacons-now! !!0depth!! true beacons-now! !!0depth!! addr-changed true THEN to connected? ; is android-network previous previous Loading keys.fs +1 −1 Original line number Diff line number Diff line Loading @@ -876,7 +876,7 @@ previous : key-sign ( o:key -- o:key ) ['] pack-core gen-cmd$ [: type ke-pk $@ type ;] $tmp now>never c:0key c:hash ['] .sig $tmp ke-selfsig $! ; now>never c:0key c:hash [: 0 ..sig ;] $tmp ke-selfsig $! ; Variable cp-tmp Loading n2o.fs +1 −1 Original line number Diff line number Diff line Loading @@ -278,7 +278,7 @@ scope{ n2o \U nick newnick \G nick: Change your nick to <newnick> ?get-me ?nextarg IF pk@ key| key-exist? ?dup-IF >o ke-nick $! key-sign o> save-keys >o ke-nick $! key-sign o> save-keys keylist ELSE 2drop THEN THEN ; : pet ( -- ) Loading Loading
android/net.fs +3 −1 Original line number Diff line number Diff line Loading @@ -15,10 +15,12 @@ \ You should have received a copy of the GNU Affero General Public License \ along with this program. If not, see <http://www.gnu.org/licenses/>. Defer addr-changed ' noop is addr-changed also android also jni :noname defers android-network network-info dup IF ]xref beacons-now! !!0depth!! true beacons-now! !!0depth!! addr-changed true THEN to connected? ; is android-network previous previous Loading
keys.fs +1 −1 Original line number Diff line number Diff line Loading @@ -876,7 +876,7 @@ previous : key-sign ( o:key -- o:key ) ['] pack-core gen-cmd$ [: type ke-pk $@ type ;] $tmp now>never c:0key c:hash ['] .sig $tmp ke-selfsig $! ; now>never c:0key c:hash [: 0 ..sig ;] $tmp ke-selfsig $! ; Variable cp-tmp Loading
n2o.fs +1 −1 Original line number Diff line number Diff line Loading @@ -278,7 +278,7 @@ scope{ n2o \U nick newnick \G nick: Change your nick to <newnick> ?get-me ?nextarg IF pk@ key| key-exist? ?dup-IF >o ke-nick $! key-sign o> save-keys >o ke-nick $! key-sign o> save-keys keylist ELSE 2drop THEN THEN ; : pet ( -- ) Loading