steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Rename combinator in dns

db4
Doug Coleman 2010-10-09 12:49:47 -07:00
parent 15226d8bc3
commit efbbe3591e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/dns/dns.factor
View File

@ -9,7 +9,7 @@ math.parser namespaces nested-comments random sequences
slots.syntax splitting system vectors vocabs.loader ; slots.syntax splitting system vectors vocabs.loader ;
IN: dns IN: dns
: with-temporary-input-seek ( n seek-type quot -- ) : with-input-seek ( n seek-type quot -- )
tell-input [ tell-input [
[ seek-input ] dip call [ seek-input ] dip call
] dip seek-absolute seek-input ; inline ] dip seek-absolute seek-input ; inline
@ -175,7 +175,7 @@ CONSTANT: ipv6-arpa-suffix ".ip6.arpa"
8 shift read1 bitor HEX: 3fff bitand 8 shift read1 bitor HEX: 3fff bitand
seek-absolute [ seek-absolute [
read1 parse-length-bytes , (parse-name) read1 parse-length-bytes , (parse-name)
] with-temporary-input-seek ] with-input-seek
] [ ] [
parse-length-bytes , (parse-name) parse-length-bytes , (parse-name)
] if ] if