diff options
| author | aarne <unknown> | 2004-04-30 05:02:49 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-30 05:02:49 +0000 |
| commit | cbbb6d65c7bd05a0543c4e023610a2a9bbfe2054 (patch) | |
| tree | 6c1eb5d9f55147a9942396a30e615649f3955827 /src/GF/Shell/PShell.hs | |
| parent | 9e23c25e283c551d84913994b5d54a7fcd460aa7 (diff) | |
gr F ? ?
Diffstat (limited to 'src/GF/Shell/PShell.hs')
| -rw-r--r-- | src/GF/Shell/PShell.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Shell/PShell.hs b/src/GF/Shell/PShell.hs index c2db72e63..06554287b 100644 --- a/src/GF/Shell/PShell.hs +++ b/src/GF/Shell/PShell.hs @@ -71,7 +71,8 @@ pCommand ws = case ws of "p" : s -> aString CParse s "t" : i:o: s -> aString (CTranslate (language i) (language o)) s "gr" : [] -> aUnit (CGenerateRandom 1) - "gr" : n : [] -> aUnit (CGenerateRandom (readIntArg n)) -- deprecated 12/5/2001 + "gr" : t -> aTerm (CGenerateRandom 1) t +--- "gr" : n : [] -> aUnit (CGenerateRandom (readIntArg n)) -- deprecated 12/5/2001 "pt" : s -> aTerm CPutTerm s ----- "wt" : f : s -> aTerm (CWrapTerm (string2id f)) s "ma" : s -> aString CMorphoAnalyse s |