Paste: mountpoint

Author: mrjbq7
Mode: factor
Date: Thu, 4 Apr 2013 22:13:30
Plain Text | 
! Copyright (C) 2013 Your name.
! See http://factorcode.org/license.txt for BSD license.
USING: io.files.info command-line accessors namespaces sequences io ;
IN: cli-mount-point

: mountpoint ( x -- x ) file-system-info device-name>> ;

: cli-mount-point ( -- ) command-line get first mountpoint print ;

MAIN: cli-mount-point

New Annotation

Summary:
Author:
Mode:
Body: