forth/packages/packages.fs

   1 \ tag: /packages sub device tree
   2 \
   3 \ Copyright (C) 2003 Stefan Reinauer
   4 \
   5 \ See the file "COPYING" for further information about
   6 \ the copyright and warranty status of this work.
   7 \
   8
   9 " /" find-device
  10
  11 new-device
  12   " packages" device-name
  13   : open true ;
  14   : close ;
  15 finish-device
  16
  17 device-end