Define INSERT.

diff --git a/v7/src/edwin/simple.scm b/v7/src/edwin/simple.scm
index 1068e599a673730df144a114d3e506e1f581b197..df233c37e720cd31d2efb80e5109657b394b88d0 100644 (file)
--- a/v7/src/edwin/simple.scm
+++ b/v7/src/edwin/simple.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: simple.scm,v 1.49 2000/02/25 17:46:30 cph Exp $
+;;; $Id: simple.scm,v 1.50 2000/04/04 16:50:43 cph Exp $
 ;;;
 ;;; Copyright (c) 1985, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -81,6 +81,10 @@
          (editor-error "Attempt to delete past end of buffer")
          (group-delete-right-char! group index)))))
 \f
+(define (insert object #!optional point)
+  (insert-string (write-to-string object)
+                (if (default-object? point) (current-point) point)))
+
 (define (insert-string string #!optional point)
   (let ((point (if (default-object? point) (current-point) point)))
     (group-insert-string! (mark-group point) (mark-index point) string)))