RosettaCodeData/Task/Command-line-arguments/TXR/command-line-arguments-2.txr

mirror of https://github.com/acmeism/RosettaCodeData.git
(tree-case *args*
  ((a b c) (put-line "got three args, thanks!"))
  (else (put-line `usage: @(ldiff *full-args* *args*) <arg1> <arg2> <arg3>`)))
	`(tree-case args`
	`((a b c) (put-line "got three args, thanks!"))`
	(else (put-line `usage: @(ldiff full-args args) <arg1> <arg2> <arg3>`)))