diff options
Diffstat (limited to 'board-js2x')
-rw-r--r-- | board-js2x/slof/bcm57xx.fs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/board-js2x/slof/bcm57xx.fs b/board-js2x/slof/bcm57xx.fs index e4f8776..c8e6f5a 100644 --- a/board-js2x/slof/bcm57xx.fs +++ b/board-js2x/slof/bcm57xx.fs @@ -24,7 +24,6 @@ VARIABLE obp-tftp-package : open ( -- okay? ) open-count 0= IF open IF - my-args s" obp-tftp" $open-package obp-tftp-package ! bcm57xx-open dup not IF ." bcm57xx-open failed" EXIT THEN drop dup TO bcm57xx-priv 6 encode-bytes s" local-mac-address" property @@ -35,6 +34,7 @@ VARIABLE obp-tftp-package ELSE true THEN + my-args s" obp-tftp" $open-package obp-tftp-package ! open-count 1 + to open-count ; @@ -43,11 +43,11 @@ VARIABLE obp-tftp-package open-count 0> IF open-count 1 - dup to open-count 0= IF - s" close" obp-tftp-package @ $call-method bcm57xx-priv bcm57xx-close close THEN THEN + s" close" obp-tftp-package @ $call-method ; : read ( buf len -- actual ) |