From 791ff539b529ee5bc07738fc9811b1f49e9ab855 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 28 Dec 2014 09:45:28 -0500
Subject: [PATCH] Expose ->pos as buffer-pos

---
 rmacs/buffer.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/rmacs/buffer.rkt b/rmacs/buffer.rkt
index 6f3a8d9..2ad8a1a 100644
--- a/rmacs/buffer.rkt
+++ b/rmacs/buffer.rkt
@@ -33,6 +33,7 @@
          buffer-mark
          buffer-mark-pos*
          buffer-mark-pos
+         buffer-pos
          buffer-mark!
          buffer-clear-mark!
          buffer-move-mark!
@@ -270,6 +271,9 @@
   (or (buffer-mark-pos* buf mtype)
       (error what "Mark type ~v not found; available mark types ~v" mtype (buffer-mark-types buf))))
 
+(define (buffer-pos buf pos-or-mtype)
+  (->pos buf pos-or-mtype 'buffer-pos))
+
 (define (buffer-mark! buf mtype pos-or-mtype #:value [value #t])
   (buffer-lift replace-mark buf mtype (->pos buf pos-or-mtype 'buffer-mark!) value))