ADDED: ls/1: tag links with @

Author: JanWielemaker

library/shell.pl

@@ -229,6 +229,9 @@
     (   exists_directory(File)
     ->  atom_concat(Base, /, Label),
         Result = dir(File, Label)
+    ;   read_link(File, _, _)
+    ->  atom_concat(Base, '@', Label),
+        Result = file(File, Label)
     ;   Result = file(File, Base)
     ).