New display-width function.

* eval.c (eval_init): Register display-width intrinsic.

* lib.c (display_width): New function.

* lib.h (display_width): Declared.

* txr.1: Documented display-width.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index b75f519e..ad5194bd 100644
--- a/lib.h
+++ b/lib.h
@@ -860,6 +860,7 @@ val obj_print(val obj, val stream);
 val obj_pprint(val obj, val stream);
 val tostring(val obj);
 val tostringp(val obj);
+val display_width(val obj);
 #if !HAVE_SETENV
 void setenv(const char *name, const char *value, int overwrite);
 void unsetenv(const char *name);